home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / CD_System / AHI / Install_AHI < prev    next >
Text File  |  1998-07-30  |  76KB  |  2,581 lines
  1. ; $VER: AHI Install 4.13 (8.10.97)
  2. ; Description: Installer script for the AHI audio system (© 1996, 1997 Martin Blom).
  3. ; Done my Martin Blom, partly based on Teemu Suikki's install script.
  4. ; Public domain.
  5. ;
  6. ; $Id: Install\040AHI,v 4.13 1997/10/09 01:08:49 lcs Exp lcs $
  7. ; $Log: Install\040AHI,v $
  8. ; Revision 4.13  1997/10/09 01:08:49  lcs
  9. ; Added the language Hrvatski.
  10. ;
  11. ; Revision 4.12  1997/09/28 04:36:32  lcs
  12. ; Added Maestro Pro
  13. ;
  14.  
  15. (set #complete 0)
  16. (set #completeadd (/ 1000 35))    ; There are 35 complete statements!
  17.  
  18. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  19.  
  20. (set #osversion (/ (getversion "exec.library" (resident)) 65536))
  21.  
  22. ;**
  23. ;** All the strings
  24. ;**
  25.  
  26.     (set #t_welcome        (cat
  27.         " Welcome to the AHI installation. AHI is a retargetable"
  28.         " audio systems that can be used with both the built-in"
  29.         " sound chip (Paula) and several sound cards. This is version"
  30.         " 4."
  31.     ))
  32.     (set #t_oldinstaller    (cat
  33.         " You have an old version of the Installer. I'll probably"
  34.         " need version 43.3 or greater. You can continue anyway"
  35.         " but there is no guarantee it will work as it's supposed"
  36.         " to do.\n"
  37.         " Do you wish to continue anyway?"
  38.     ))
  39.     (set #t_oldinstallerhelp (cat
  40.         " The version of Installer you use is too old. You can"
  41.         " find a more recent version on the Internet, for example"
  42.         " on Aminet, in the util/misc directory. The current"
  43.         " file name is \"Installer-43_3.lha\":\n"
  44.         " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  45.     
  46.     ))
  47.     (set #t_installaborted    "Installation aborted.")
  48.  
  49.     (set #t_installing    "Installing ")
  50.     (set #t_installingdocs    "Installing developer documentation")
  51.     (set #t_installingincs    "Installing include files")
  52.     (set #t_installingsrc    "Installing example source code")
  53.     (set #t_nofiles        "No files to install.")
  54.  
  55.     (set #t_nohelp        "No help available.")
  56.  
  57.     (set #t_parts        "Which parts of AHI do you wish to install?")
  58.     (set #t_system        "System files")
  59.     (set #t_prefs        "Preferences program")
  60.     (set #t_audio        "The AUDIO handler");
  61.     (set #t_userdoc        "User's documentation")
  62.     (set #t_a-developer    "Application developer files")
  63.     (set #t_d-developer    "Driver developer files")
  64.     (set #t_userhelp    (cat
  65.         "System files:\n"
  66.         " The system files. This is the heart of AHI and must be"
  67.         " if for any of the other components to work.\n\n"
  68.         "Preferences program:\n"
  69.         " The preference program. Can be used to change many options"
  70.         " in AHI. This part of AHI requires BGUI or MUI to be installed.\n\n"
  71.         "The AUDIO handler:\n"
  72.         " Allows you to play and record samples with the 'copy'"
  73.         " command.\n\n"
  74.         "User's documentation:\n"
  75.         " An AmigaGuide® file descibing the AHI audio system and"
  76.         " its components.\n\n"
  77.     ))
  78.     (set #t_devhelp        (cat
  79.         "Application developer files:\n"
  80.         " Autodocs, include files, example source code etc."
  81.         " Required if you wish to use AHI in your own applications.\n\n"
  82.         "Driver developer files:\n"
  83.         " Autodocs, example source code etc. Only required"
  84.         " if you plan to write hardware drivers for sound"
  85.         " cards.\n\n"
  86.     ))
  87.  
  88.     (set #t_gui        (cat
  89.         " Which version of the preferences program would you like"
  90.         " to install?"
  91.     ))
  92.     (set #t_guihelp        (cat
  93.         " Please select which GUI system you prefer.\n\n"
  94.     ))
  95.     (set #t_guibgui        "BGUI version")
  96.     (set #t_guimui        "MUI version")
  97.  
  98.     (set #t_icon         "Which icon do you want to install?")
  99.     (set #t_iconstd        "Plain 4 colour icon")
  100.     (set #t_iconmwb        "8 colour MagicWB icon")
  101.     (set #t_iconhelp    (cat
  102.         " Select which icon you would like to use for the prefernces"
  103.         " program. The MagicWB icon was designed by Erol Ismael.\n\n"
  104.     ))
  105.  
  106.     (set #t_languages    (cat
  107.         "Which languages do you want to install?"
  108.         " The built-in language is English."))
  109.     (set #t_languageshelp    (cat
  110.         " If your language is not in the list, the author of AHI"
  111.         " would be very happy if you made a translation. Edit the files"
  112.         " User/Catalogs/ahi.ct and User/Catalogs/ahiprefs.ct"
  113.         " and send it to this address:\n"
  114.         " lcs@lysator.liu.se\n"
  115.         " It may be a wise move to ask first, just to make sure nobody"
  116.         " else is working on a translation to your language.\n\n"
  117.     ))
  118.  
  119.     (set #t_drivers        (cat
  120.         "Which AHI drivers you want to install?"
  121.         " Do not install drivers for sound cards you don't have."))
  122.     (set #t_drivershelp    (cat
  123.         "Delfina:\n"
  124.         " Delfina Classic/Lite sound card.\n\n"
  125.         "Filesave:\n"
  126.         " Read/Write sample data to a file.\n\n"
  127.         "Maestro Pro:\n"
  128.         " Maestro Pro sound card.\n\n"
  129.         "Melody MPEG:\n"
  130.         " Melody MPEG sound card.\n\n"
  131.         "Paula:\n"
  132.         " Regular Amiga sound hardware.\n\n"
  133.         "Prelude:\n"
  134.         " Prelude sound card.\n\n"
  135.         "Toccata:\n"
  136.         " Toccata sound card.\n\n"
  137.         "Wavetools:\n"
  138.         " Wavetools sound card.\n\n"
  139.     ))
  140.  
  141.     (set #t_CPUver        "Which version of the binaries do you wish to install?")
  142.     (set #t_CPUverhelp    (cat
  143.         " 68020-optimized binaries are much faster, and often also"
  144.         " smaller than plain 68000 versions. In the case of AHI,"
  145.         " the 68000 versions have less features and reduced sound"
  146.         " quality. It is strongly suggested that you use the"
  147.         " 68020 versions of the binaries.\n"
  148.                 " The 68060 version avoids the slow 64 bit divisions. Don't"
  149.                 " install this version unless you own a 68060 CPU!\n\n"
  150.     ))
  151.  
  152.     (set #t_devfiles    "Which developer files do you wish to install?")
  153.     (set #t_devdocs        "Autodocs and AHI Developer's Guide")
  154.     (set #t_source        "Example source code")
  155.     (set #t_asm        "Assembler include files")
  156.     (set #t_cgen        "Generic C include files")
  157.     (set #t_e        "E module files")
  158.     (set #t_fd        "FD files")
  159.     (set #t_ade        "Extra ADE gcc include files")
  160.     (set #t_sas        "Extra SAS/C (and DICE) include files")
  161.     (set #t_storm        "Extra StormC include files")
  162.     (set #t_devfileshelp    (cat
  163.         "Autodocs and AHI Developer's Guide:\n"
  164.         " The autodocs and rules for programming AHI.\n\n"
  165.         "Example source code:\n"
  166.         " Some example programs, most of them are written in C, but"
  167.         " there are some assembler sources too.\n\n"
  168.         "Assembler include files:\n"
  169.         " Include files needed if you program in assembler.\n\n"
  170.         "Generic C include files:\n"
  171.         " Include files needed if you program in C.\n\n"
  172.         "E module files:\n"
  173.         " The module files to use with AmigaE.\n\n"
  174.         "FD files:\n"
  175.         " Can be used with the 'lvo' tool, or when you build a"
  176.         " hardware driver written in C.\n\n"
  177.         "Extra ADE gcc include files:\n"
  178.         " The special include files for gcc (inline, proto etc).\n\n" 
  179.         "Extra SAS/C (and DICE) include files:\n"
  180.         " The special include files for SAS/C (pragmas, proto etc)."
  181.         " They work with DCC too, but with no tag calls.\n\n"
  182.         "Extra StormC include files:\n"
  183.         " The special include files for StormC (pragma, proto etc).\n\n"
  184.     ))
  185.  
  186.  
  187.     (set #t_nodevs
  188.         "Cannot find the Devs: assign. Try a higher userlevel instead.")
  189.     (set #t_noc
  190.         "Cannot find the C: assign. Try a higher userlevel instead.")
  191.     (set #t_noprefs
  192.         "Cannot find the Sys:Prefs directory. Try a higher userlevel instead.")
  193.     (set #t_nol
  194.         "Cannot find the L: assign. Try a higher userlevel instead.")
  195.     (set #t_devspath    "Where do you want to install the system files?")
  196.     (set #t_devspathhelp    (cat
  197.         " The directory you select must be a part of your Devs: assign."
  198.         " The installer will copy ahi.device, the hardware drivers"
  199.         " and the audio mode description files to this directory."
  200.         " Subdirectories for the drivers and mode files will be"
  201.         " created.\n\n"
  202.     ))
  203.     (set #t_cpath        "Where do you want to install AddAudioModes?")
  204.     (set #t_cpathhelp    (cat
  205.         " AddAudioModes is a small command line utility that can"
  206.         " be used to manipulate the database which contains the"
  207.         " audio modes (much like the screenmode database)."
  208.         " CLI programs are normally located in the C: directory.\n\n"
  209.     ))
  210.  
  211.  
  212.     (set #t_localepath    "Where do you want to install the catalogs?")
  213.     (set #t_localepathhelp    (cat
  214.         " The directory you select must be a part of your Locale: assign."
  215.         " The installer will copy the catalogs you have selected to"
  216.         " subdirectories in this directory.\n\n"
  217.     ))
  218.  
  219.     (set #t_prefspath    "Where do you want to install the preferences program?")
  220.     (set #t_prefspathhelp    (cat
  221.         " The preferences program lets you configure AHI for your particular"
  222.         " configuration. You can select which sound hardware you prefer"
  223.         " to use, which physical inputs and outputs you wish to use"
  224.         " etc. Preferences programs are normally located in the"
  225.         " Sys:Prefs/ directory.\n"
  226.         " This program requires BGUI or MUI, depending on which version"
  227.         " you are installing.\n\n"
  228.     ))
  229.  
  230.     (set #t_audiohelp    (cat
  231.         " The AUDIO handler is used to mount a device called AUDIO:. By"
  232.         " copying files to and from this device, you can play and record"
  233.         " raw sample data, IFF-AIFF or IFF-AIFC files.\n\n"
  234.     ))
  235.  
  236.     (set #t_lpath        "Where do you want to install the AUDIO handler?")
  237.     (set #t_lpathhelp    (cat
  238.         #t_audiohelp
  239.         " Handlers are normally located in the L: directory.\n\n"
  240.     ))
  241.  
  242.     (set #t_dosdevpath    "Where do you want to install the AUDIO mount entry?")
  243.     (set #t_dosdevpathhelp    (cat
  244.         #t_audiohelp
  245.         " Mount entries are normally located in the Devs:DOSDrivers"
  246.         " directory if they are to be mounted at boot time. If not, they"
  247.         " probably are in the SYS:Storage/DOSDrivers directory.\n\n"
  248.     ))
  249.  
  250.     (set #t_dosdriver    "Do you want the handler to be activated at boot time?")
  251.     (set #t_dosdriverhelp    (cat
  252.         " If you want, the AUDIO: device can be made avaliable as soon as"
  253.         " your system has been started. This saves you the effort of"
  254.         " having to mount it manually when you want to use it. It does"
  255.         " not require much memory to mount the device and it is therefor"
  256.         " suggested that you select 'Yes'.\n\n"
  257.     ))
  258.  
  259.     (set #t_userdocpath    "Where do you want to install the user documentation?")
  260.     (set #t_userdocpathhelp    (cat
  261.         " This is an AmigaGuide® file descibing the AHI audio system"
  262.         " and its components.\n\n"
  263.     ))
  264.  
  265.     (set #t_srcpath        (cat
  266.         " Where do you want to install the example source code?"
  267.         " A directory called AHI will be created there."
  268.     ))
  269.     (set #t_srcpathhelp    (cat
  270.         " The example sources, in both C and assembler, will be"
  271.         " stored in a subdirectory called AHI. Any files currently"
  272.         " present in the AHI directory will be deleted!\n\n"
  273.     ))
  274.     (set #t_oldsrc        (cat
  275.         " There is already a directory called AHI here."
  276.         " All files in it will be deleted."
  277.     ))
  278.  
  279.     (set #t_devdocspath    " Where do you want to store the developer documentation?")
  280.     (set #t_devdocspathhelp    (cat
  281.         " The installer will place the autodoc files and the"
  282.         " AHI Developer's Guide in the directory you select.\n\n"
  283.     ))
  284.  
  285.     (set #t_aincpath    " Where are your assembler include files located?")
  286.     (set #t_aincpathhelp    (cat
  287.         " The installer will place the assembler include files"
  288.         " in subdirectories (lvo, devices and libraries)"
  289.         " of the one you select.\n\n"
  290.     ))
  291.  
  292.     (set #t_fdpath        " Where do you keep your FD-files?")
  293.     (set #t_fdpathhelp    (cat
  294.         " FD-files are files describing a library's or a device's"
  295.         " functions. They can be used with the 'lvo' program, and"
  296.         " can also be useful if you write hardware drivers.\n\n"
  297.     ))
  298.  
  299.     (set #t_cincpath    " Where are your C include files located?")
  300.     (set #t_cincpathhelp    (cat
  301.         " The installer will place the generic C include files"
  302.         " in subdirectories (clib, devices and libraries)"
  303.         " of the one you select.\n\n"
  304.     ))
  305.  
  306.     (set #t_emodpath    " Where are your E module files located?")
  307.     (set #t_emodpathhhelp    (cat
  308.         " The installer will place the E module files in the directory"
  309.         " and in subdirectories (devices and libraries)"
  310.         " of the one you select.\n\n"
  311.     ))
  312.  
  313.     (set #t_adeincpath    " Where do you want to place the ADE gcc include files?")
  314.     (set #t_adeincpathhelp    (cat
  315.         " gcc needs some extra files to find out which registers"
  316.         " to use when calling AHI functions. That information is"
  317.         " located in these files, which will be copied to the"
  318.         " inline, pragmas and proto directories.\n\n"
  319.     ))
  320.  
  321.     (set #t_sasincpath    " Where do you want to place the SAS/C (and DICE) include files?")
  322.     (set #t_sasincpathhelp    (cat
  323.         " SAS/C (and DICE) needs some extra files to find out which registers"
  324.         " to use when calling AHI functions. That information is"
  325.         " located in these files, which will be copied to the"
  326.         " pragmas and proto directories.\n\n"
  327.     ))
  328.  
  329.     (set #t_stormincpath    " Where do you want to place the StormC include files?")
  330.     (set #t_stormincpathhelp (cat
  331.         " StormC needs some extra files to find out which registers"
  332.         " to use when calling AHI functions. That information is"
  333.         " located in these files, which will be copied to the"
  334.         " pragma and proto directories.\n\n"
  335.     ))
  336.  
  337.     (set #t_ahidevhelp    (cat
  338.         " ahi.device is the heart of the AHI"
  339.         " audio system. This is the only part"
  340.         " that other programs knows anything about.\n\n"
  341.     ))
  342.  
  343.     (set #t_runaddmodes    (cat
  344.         " About to run AddAudioModes to recreate"
  345.         " the audio modes database."
  346.     ))
  347.  
  348.  
  349.     (set #t_overwritemode1
  350.         " There is already a copy of the audio mode descriptor ")
  351.     (set #t_overwritemode2 " present in ")
  352.     (set #t_overwritemode3    (cat
  353.         ".\n\n"
  354.         " Do you want to overwrite it?"
  355.         " All changes you have done to to it will be lost!"
  356.     ))
  357.  
  358.  
  359. (if (= @language "srpski")
  360. (    ; Translated by Ljubomir Jankovic <lurch@afrodita.rcub.bg.ac.yu>
  361.     (set #t_welcome        (cat
  362.         " Dobrodoãli u AHI instalaciju. AHI je retargetable"
  363.         " audio sistem koji moäe biti koriãáen sa ugraâenim"
  364.         " zvuànim àipom (Paula) i viãe zvuànih kartica."
  365.         " Ovo je verzija 4."
  366.     ))
  367.     (set #t_oldinstaller    (cat
  368.         " Vi imate staru verziju Installer-a. Verovatno áe mi"
  369.         " trebati verzija 43.3 ili viãa. Moäete nastaviti, ali"
  370.         " nema garancije da áe sve raditi kako je predviâeno.\n"
  371.         " Da li stvarno äelite da nastavite?"
  372.     ))
  373.     (set #t_oldinstallerhelp (cat
  374.         " Verzija Installer-a koju koristite previãe stara. Moäete"
  375.         " naái najnoviju verziju na Internetu, na primer"
  376.         " na Aminet-u, u direktorijumu util/misc. Trenutno ime"
  377.         " fajla je \"Installer-43_3.lha\":\n"
  378.         " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  379.  
  380.     ))
  381.     (set #t_installaborted    "Instalacija prekinuta.")
  382.  
  383.     (set #t_installing    "Instaliram ")
  384.     (set #t_installingdocs    "Instaliram dokumentaciju za programere")
  385.     (set #t_installingincs    "Instaliram include fajlove")
  386.     (set #t_installingsrc    "Instaliram primere izvornog koda")
  387.     (set #t_nofiles        "Nema fajlova za instaliranje.")
  388.  
  389.     (set #t_nohelp        "Pomoá nije dostupna.")
  390.  
  391.     (set #t_parts        "Koje delove AHI-ja äelite de instalirate?")
  392.     (set #t_system        "Sistemske fajlove")
  393.     (set #t_prefs        "Program za podeãavanja")
  394.     (set #t_audio        "AUDIO hendler");
  395.     (set #t_userdoc        "Korisniàka dokumentacija")
  396.     (set #t_a-developer    "Fajlovi za razvoj aplikacija")
  397.     (set #t_d-developer    "Fajlovi za razvoj drajvera")
  398.     (set #t_userhelp    (cat
  399.         "Sistemski fajlovi:\n"
  400.         " Ovo je srce AHI-ja i mora postojati"
  401.         " da bi radile ostale komponente.\n\n"
  402.         "Program za podeãavanja:\n"
  403.         " Moäe se koristiti za podeãavanje mnogih opcija"
  404.         " AHI-ja. Ovaj deo AHI-ja zahteva da se instalira BGUI.\n\n"
  405.         "AUDIO hendler:\n"
  406.         " Omoguáava Vam da puãtate i snimate semplove komandom"
  407.         " 'copy'.\n\n"
  408.         "Korisniàka dokumentacija:\n"
  409.         " AmigaGuide® fajl koji opisuje AHI audio sistem i"
  410.         " njegove komponente.\n\n"
  411.     ))
  412.     (set #t_devhelp        (cat
  413.         "Fajlovi za razvoj aplikacija:\n"
  414.         " Autodokovi, include fajlovi, primeri izvornog koda itd."
  415.         " Oni su neophodni ako äelite da koritite AHI u svoji aplikacijama.\n\n"
  416.         "Fajlovi za razvoj drajvera:\n"
  417.         " Autodokovi, primeri izvornog koda itd. Potrebni su"
  418.         " samo ako planirate da razvijate hardverske drajvere za"
  419.         " zvuàne kartice.\n\n"
  420.     ))
  421.  
  422.  
  423.     (set #t_languages    (cat
  424.         "Koje jezike äelite da instalirate?"
  425.         " Ugraâeni jezik je Engleski."))
  426.     (set #t_languageshelp    (cat
  427.         " Ako se Vaã jezik ne nalazi na listi, autor AHI-ja"
  428.         " bi bio veoma sreáan, ako bi napravili prevod. Promenite fajlove"
  429.         " User/Catalogs/NewCatalog.ct i User/Catalogs/NewPrefsCatalog.ct"
  430.         " i poãaljite na ovu adresu:\n"
  431.         " lcs@lysator.liu.se\n\n"
  432.     ))
  433.  
  434.     (set #t_drivers        (cat
  435.         "Koje AHI drajvere äelite da instalirate?"
  436.         " Najbolje je da instalirate samo drajvere koji su Vam potrebni."))
  437.     (set #t_drivershelp    (cat
  438.         "Delfina:\n"
  439.         " Delfina Classic/Lite zvuàna kartica.\n\n"
  440.         "Filesave:\n"
  441.         " Àitanje/zapis zvuànih podataka u fajl.\n\n"
  442.         "Maestro Pro:\n"
  443.         " Maestro Pro zvuàna kartica.\n\n"
  444.         "Melody MPEG:\n"
  445.         " Melody MPEG zvuàna kartica.\n\n"
  446.         "Paula:\n"
  447.         " Obiàan Amigin zvuàni hardver.\n\n"
  448.         "Prelude:\n"
  449.         " Prelude zvuàna kartica.\n\n"
  450.         "Toccata:\n"
  451.         " Toccata zvuàna kartica.\n\n"
  452.         "Wavetools:\n"
  453.         " Wavetools zvuàna kartica.\n\n"
  454.     ))
  455.     (set #t_CPUver        "Koju verziju programskih fajlova äelite da instalirate?")
  456.     (set #t_CPUverhelp    (cat
  457.         " Fajlovi optimizovani za 68020 su bräi, i obiàno"
  458.         " manji nego njihove 68000 verzije. U sluàaju AHI-ja,"
  459.         " verzije za 68000 imaju manje moguánosti i smanjen"
  460.         " kvalitet zvuka. Zaista Vam preporuàujem da instalirate"
  461.         " verzije fajlova za 68020.\n"
  462.         " Verzija za 68060 izbegava sporo 64-vorobitno deljenje. Nemojte"
  463.         " instalirati ovu verziju ako nemate 68060 procesor!\n\n"
  464.     ))
  465.  
  466.     (set #t_devfiles    "Koje programerske fajlove äelite da instalirate?")
  467.     (set #t_devdocs        "Autodokove i AHI Vodià za programere")
  468.     (set #t_source        "Primeri izvornog koda")
  469.     (set #t_asm        "Include fajlove za asembler")
  470.     (set #t_cgen        "Opãte include fajlove za C")
  471.     (set #t_e        "E module")
  472.     (set #t_fd        "FD fajlove")
  473.     (set #t_ade        "Dodatne ADE gcc include fajlove")
  474.     (set #t_sas        "Dodatne SAS/C (i DICE) include fajlove")
  475.     (set #t_storm        "Dodatne StormC include fajlove")
  476.     (set #t_devfileshelp    (cat
  477.         "Autodokovi i AHI Vodià za programere:\n"
  478.         " Autodokovi i pravila za programiranje AHI-ja.\n\n"
  479.         "Primeri izvornog koda:\n"
  480.         " Neki programi za primer, veáina napisan u C-u, ali ima"
  481.         " i neãto izvornog koda u asembleru.\n\n"
  482.         "Include fajlovi za asembler:\n"
  483.         " Include fajlovi koji su potrebni ako programirate u asembleru.\n\n"
  484.         "Opãti include fajlovi za C:\n"
  485.         " Include fajlovi koji su potrebni ako programirate u C-u.\n\n"
  486.         "E moduli:\n"
  487.         " Moduli za koriãáenje u Amiga E-u.\n\n"
  488.         "FD fajlovi:\n"
  489.         " Mogu se koristiti sa programom 'lvo', ili kada pravite"
  490.         " hardverski drajver napisan u C-u.\n\n"
  491.         "Dodatni ADE gcc include fajlovi:\n"
  492.         " Specijalni include fajlovi za gcc (inline, proto itd.).\n\n"
  493.         "Dodatni SAS/C (i DICE) include fajlovi:\n"
  494.         " Specijalni include fajlovi za SAS/C (pragma, proto itd.)."
  495.         " Rade i sa DCC-om, ali bez poziva tag-ova.\n\n"
  496.         "Dodatni StormC include fajlovi:\n"
  497.         " Specijalni include fajlovi za StormC (pragma, proto itd.).\n\n"
  498.     ))
  499.  
  500.  
  501.     (set #t_nodevs
  502.         "Ne mogu da naâem Devs: asajn. Pokuãajte viãi korisniàki nivo.")
  503.     (set #t_noc
  504.         "Ne mogu da naâem C: asajn. Pokuãajte viãi korisniàki nivo.")
  505.     (set #t_noprefs
  506.         "Ne mogu da naâem Sys:Prefs directory. Pokuãajte viãi korisniàki nivo.")
  507.     (set #t_nol
  508.         "Ne mogu da naâem L: asajn. Pokuãajte viãi korisniàki nivo.")
  509.     (set #t_devspath    "Gde äelite da instalirate sistemske fajlove?")
  510.     (set #t_devspathhelp    (cat
  511.         " Direktorijum koji odaberete mora biti deo Vaãeg Devs: asajna."
  512.         " Installer áe kopirati ahi.device, hardverske drajvere"
  513.         " i fajlove sa opisima audio modova u ovaj direktorijum."
  514.         " Poddirektorijumi za drajvere i fajlove sa opisima modova"
  515.         " áe biti napravljeni.\n\n"
  516.     ))
  517.     (set #t_cpath        "Gde äelite da instalirate AddAudioModes?")
  518.     (set #t_cpathhelp    (cat
  519.         " AddAudioModes je mali CLI program koji se moäe koristiti"
  520.         " za manipulaciju baze podataka koja sadräi audio modove"
  521.         " (vrlo sliàno bazi podataka sa moguáim rezolucijama ekrana)."
  522.         " CLI programi se obiàno nalaze u C: direktorijumu.\n\n"
  523.     ))
  524.  
  525.  
  526.     (set #t_localepath    "Gde äelite da instalirate kataloge?")
  527.     (set #t_localepathhelp    (cat
  528.         " Direktorijum koji odaberete mora biti deo Locale: asajna."
  529.         " Installer áe kopirati kataloge koje odaberete u"
  530.         " poddirektorijume u ovom direktorijumu.\n\n"
  531.     ))
  532.  
  533.     (set #t_prefspath    "Gde äelite da instalirate program za podeãavanja?")
  534.     (set #t_prefspathhelp    (cat
  535.         " Program za podeãavanja Vam omoguáava da podesite AHI vaãoj"
  536.         " konkretnoj konfiguraciji. Moäete odabrati koji zvuàni hardver"
  537.         " äelite da koristite, koje fiziàke ulaze i izlaze äelite da"
  538.         " koritite itd. Programi za podeãavanja se obiàno nalaze u"
  539.         " Sys:Prefs/ direktorijumu.\n"
  540.         " Ovaj program zahteva BGUI biblioteku.\n\n"
  541.     ))
  542.  
  543.     (set #t_audiohelp    (cat
  544.         " AUDIO hendler se koristi za mount-ovanje AUDIO: ureâaja. Kopirajuái"
  545.         " fajlove na i sa ureâaja, moäete puãtati i snimati sirove zvuàne"
  546.         " podatke, IFF-AIFF ili IFF-AIFC fajlove.\n\n"
  547.     ))
  548.  
  549.     (set #t_lpath        "Gde äelite da instalirate AUDIO hendler?")
  550.     (set #t_lpathhelp    (cat
  551.         #t_audiohelp
  552.         " Hendleri se obiàno nalaze u L: direktorijumu.\n\n"
  553.     ))
  554.  
  555.     (set #t_dosdevpath    "Gde äelite da instalirate fajl za mount-ovanje AUDIO hendlera?")
  556.     (set #t_dosdevpathhelp    (cat
  557.         #t_audiohelp
  558.         " Mount fajlovi se nalaze u direktorijumu Devs:DOSDrivers"
  559.         " ako treba da se mount-uju pri dizanju sistema. Ako ne, onda"
  560.         " se verovatno nalaze u SYS:Storage/DOSDrivers direktorijumu.\n\n"
  561.     ))
  562.  
  563.     (set #t_dosdriver    "Da li äelite da hendler bude instaliran pri dizanju sistema?")
  564.     (set #t_dosdriverhelp    (cat
  565.         " Ako äelite, AUDIO: ureâaj moäe biti dostupan àim se digne sistem."
  566.         " Ovo vam omoguáava da ne morate da mount-ujete ureâaj svaki put"
  567.         " kada äelite da ga koristite. Ureâaj ne zahteva mnogo memorije"
  568.         " i zato preporuàujem da da odaberete 'Da'.\n\n"
  569.     ))
  570.  
  571.     (set #t_userdocpath    "Gde äelite da instalirate korisniàku dokumentaciju?")
  572.     (set #t_userdocpathhelp    (cat
  573.         " Ovo je AmigaGuide® fajl koji opisuje AHI audio sistem"
  574.         " i njegove komponente.\n\n"
  575.     ))
  576.  
  577.     (set #t_srcpath        (cat
  578.         " Gde äelite da instalirate primere izvornog koda?"
  579.         " Direktorijum sa imenom AHI biáe napravljen tamo."
  580.     ))
  581.     (set #t_srcpathhelp    (cat
  582.         " Primeri izvornog koda, i u C-u i asembleru, áe biti"
  583.         " stavljeni u poddirektorijum imena AHI. Svi fajlovi koji"
  584.         " se nalaze u AHI direktorijumu áe biti obrisani!\n\n"
  585.     ))
  586.     (set #t_oldsrc        (cat
  587.         " Ovde veá postoji direktorijum imena AHI."
  588.         " Svi fajlovi u njemu áe biti obrisani."
  589.     ))
  590.  
  591.     (set #t_devdocspath    " Gde äelite da stavite dokumentaciju za programere?")
  592.     (set #t_devdocspathhelp    (cat
  593.         " Installer áe staviti autodok fajlove i dokumentaciju za"
  594.         " razvoj AHI-ja direktorijum koji odaberete.\n\n"
  595.     ))
  596.  
  597.     (set #t_aincpath    " Gde se nalaze Vaãi include fajlovi za asembler?")
  598.     (set #t_aincpathhelp    (cat
  599.         " Installer áe smestiti include fajlove za asembler"
  600.         " u poddirektorijume (lvo, devices i libraries)"
  601.         " direktorijuma koji odaberete.\n\n"
  602.     ))
  603.  
  604.     (set #t_fdpath        " Gde dräite Vaãe FD fajlove?")
  605.     (set #t_fdpathhelp    (cat
  606.         " FD fajlovi su fajlovi koji opisuju funkcije biblioteke"
  607.         " i ureâaja. Mogu se koristiti sa programom 'lvo', i"
  608.         " i mogu biti korisni ako piãete hardverske drajvere.\n\n"
  609.     ))
  610.  
  611.     (set #t_cincpath    " Gde se nalaze Vaãi C include fajlovi?")
  612.     (set #t_cincpathhelp    (cat
  613.         " Installer áe smestiti opãte include fajlove za C"
  614.         " u poddirektorijume (clib, devices i libraries)"
  615.         " direktorijuma koji odaberete.\n\n"
  616.     ))
  617.  
  618.     (set #t_emodpath    "  Gde se nalaze Vaãi E modul fajlovi?")
  619.     (set #t_emodpathhhelp    (cat
  620.         " Installer áe smestiti E modul fajlove u direktorijum"
  621.         " i poddirektorijume (devices i libraries)"
  622.         " direktorijuma koji odaberete.\n\n"
  623.     ))
  624.  
  625.     (set #t_adeincpath    " Gde äelite da smestite ADE gcc include fajlove?")
  626.     (set #t_adeincpathhelp    (cat
  627.         " gcc-u trebaju neki dodatni fajlovi da bi naãao koje registre"
  628.         " da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
  629.         " u ovim fajlovima, koji áe biti kopirani u direktorijume "
  630.         " inline, pragmas i proto.\n\n"
  631.     ))
  632.  
  633.     (set #t_sasincpath    " Gde äelite da smestite SAS/C (i DICE) include fajlove?")
  634.     (set #t_sasincpathhelp    (cat
  635.         " SAS/C-u (i DICE-u) trebaju neki dodatni fajlovi da bi naãao"
  636.         " koje registre da koristi pri pozivu AHI funkcija. Te informacije"
  637.         " se nalaze u ovim fajlovima, koji áe biti kopirani u pragmas"
  638.         " i proto direktorijume.\n\n"
  639.     ))
  640.  
  641.     (set #t_stormincpath    " Gde äelite da smestite StormC include fajlove?")
  642.     (set #t_stormincpathhelp (cat
  643.         " StormC-u neki dodatni fajlovi da bi naãao koje registre"
  644.         " da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
  645.         " u ovim fajlovima, koji áe biti kopirani u pragma i proto"
  646.         " direktorijume.\n\n"
  647.     ))
  648.  
  649.     (set #t_ahidevhelp    (cat
  650.         " ahi.device je srce AHI audio"
  651.         " sistema. Ovo je jedini deo za koga"
  652.         " drugi programi znaju.\n\n"
  653.     ))
  654.  
  655.     (set #t_runaddmodes    (cat
  656.         " Upravo startujem AddAudioModes da bih"
  657.         " osveäio bazu audio modova."
  658.     ))
  659.  
  660.  
  661.     (set #t_overwritemode1
  662.         " Veá postoji fajl sa opisom audio moda ")
  663.     (set #t_overwritemode2 " prisutan u ")
  664.     (set #t_overwritemode3    (cat
  665.         ".\n\n"
  666.         " Da li äelite da zapiãem preko njega?"
  667.         " Sve promene koje ste naàinili na njemu biáe izgubljene!"
  668.     ))
  669. ))
  670.  
  671. (if (= @language "suomi")
  672. (    ; Translated by Petteri Kallio <k140734@cs.tut.fi>
  673.     (set #t_welcome        (cat
  674.         " Tervetuloa AHI-asennukseen. AHI on äänijärjestelmä,"
  675.         " jonka avulla saat käyttöösi Amigan standardin äänipiirin"
  676.         " (Paula) lisäksi myös useita varsinaisia äänikortteja."
  677.         " Tämä on AHI:n neljäs (4.) versio."
  678.     ))
  679.     (set #t_oldinstaller    (cat
  680.         " Käytössäsi on Installer-ohjelman vahentunut versio."
  681.         " Voit jatkaa asennusta, mutta asennuksessa saattaa"
  682.         " mennä jotain pieleen. Todennäköisesti tarvitsen"
  683.         " Installer-ohjelman version 43.3 tai uudemman."
  684.         " Haluaisitko kuitenkin jatkaa asennusta?"
  685.     ))
  686.     (set #t_oldinstallerhelp (cat
  687.         " Käyttämäsi Installer-ohjelma on liian vanha versio."
  688.         " Löydät uudemman version vaikkapa Internetistä, esim."
  689.         " Aminetistä, hakemistosta util/misc. Tuoreimman"
  690.         " Installer-ohjelman nimi on  \"Installer-43_3.lha\":\n"
  691.         " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  692.     
  693.     ))
  694.     (set #t_installaborted    "Asennus keskeytetty.")
  695.  
  696.     (set #t_installing    "Asennan... ")
  697.     (set #t_installingdocs    "Asennan kehitysympäristön ohjetiedostoja")
  698.     (set #t_installingincs    "Asennan include-tiedostoja")
  699.     (set #t_installingsrc    "Asennan esimerkkilähdekoodeja")
  700.     (set #t_nofiles        "Ei asennettavia tiedostoja.")
  701.  
  702.     (set #t_nohelp        "Ohjeita ei ole saatavissa.")
  703.  
  704.     (set #t_parts        "Mitkä osat AHI:sta haluat asentaa?")
  705.     (set #t_system        "Järjestelmätiedostot")
  706.     (set #t_prefs        "Asetusohjelma")
  707.     (set #t_audio        "AUDIO-käsittelijä");
  708.     (set #t_userdoc        "Käyttäjän ohjeet")
  709.     (set #t_a-developer    "Sovellusten kehitysympäristön tiedostot")
  710.     (set #t_d-developer    "Ajurien kehitysympäristön tiedostot")
  711.     (set #t_userhelp    (cat
  712.         "Järjestelmätiedostot:\n"
  713.         " Tämä on AHI-äänijärjestelmän sydän."
  714.         " Se täytyy olla asennettuna, ennen kuin AHI:n muut"
  715.         " osat toimivat.\n\n"
  716.         "Asetusohjelma:\n"
  717.         " Asetusohjelmaa käytetään muokkaamaan AHI:n lukuisia asetuksia.\n"
  718.         " Asetusohjelma vaatii, että BGUI on asennettu.\n\n"
  719.         "AUDIO-käsittelijä:\n"
  720.         " Mahdollistaa äänitiedostojen toiston ja tallennuksen"
  721.         " 'copy'-komennon avulla.\n\n"
  722.         "Käyttäjän ohjeet:\n"
  723.         " AmigaGuide®-muotoinen tiedosto, jossa selvitetään"
  724.         " AHI-äänijärjestelmä ja sen eri osat.\n\n"
  725.     ))
  726.     (set #t_devhelp        (cat
  727.         "Sovellusten kehitysympäristön tiedostot:\n"
  728.         " Autodocit, include-tiedostot, esimerkkilähdekoodit jne."
  729.         " Tarpeellisia jos haluat käyttää AHI-äänijärjestelmää"
  730.         " omissa sovellusohjelmissasi.\n\n"
  731.         "Ajurien kehitysympäristön tiedostot:\n"
  732.         " Autodocit, esimerkkilähdekoodit jne. Tarpeellisia ainoastaan"
  733.         " jos aiot tehdä uusia äänikorttiajureita.\n\n"
  734.     ))
  735.  
  736.  
  737.     (set #t_languages    (cat
  738.         "Mille kielille haluat tehdä asennuksen?"
  739.         " Valmiskielenä on englanti."))
  740.     (set #t_languageshelp    (cat
  741.         " Jos oma kielesi ei ole listassa, AHI:n tekijä olisi"
  742.         " mielissään, jos sinä voisit tehdä käännöksen omalle"
  743.         " kielellesi. Käännä tiedostot User/Catalogs/NewCatalog.ct"
  744.         " ja User/Catalogs/NewPrefsCatalog.ct, ja lähetä ne"
  745.         " tähän osoitteeseen:\n"
  746.         " lcs@lysator.liu.se\n\n"
  747.     ))
  748.  
  749.     (set #t_drivers        (cat
  750.         "Mitkä AHI-ajurit haluat asentaa?"
  751.         " Asenna ainoastaan tarvitsemasi ajurit."))
  752.     (set #t_drivershelp    (cat
  753.         "Delfina:\n"
  754.         " Delfina Classic/Lite -äänikortti.\n\n"
  755.         "Filesave:\n"
  756.         " Kirjoita/lue äänitiedosto tiedostoon.\n\n"
  757.         "Maestro Pro:\n"
  758.         " Maestro Pro -äänikortti.\n\n"
  759.         "Melody MPEG:\n"
  760.         " Melody MPEG-äänikortti.\n\n"
  761.         "Paula:\n"
  762.         " Amigan perusäänijärjestelmä.\n\n"
  763.         "Prelude:\n"
  764.         " Prelude-äänikortti.\n\n"
  765.         "Toccata:\n"
  766.         " Toccata-äänikortti.\n\n"
  767.         "Wavetools:\n"
  768.         " Wavetools-äänikortti.\n\n"
  769.     ))
  770.  
  771.     (set #t_CPUver        "Mitkä versiot ohjelmakoodista haluat asentaa?")
  772.     (set #t_CPUverhelp    (cat
  773.         " 68020-prosessorille optimoidut versiot ovat nopeampia ja"
  774.         " usein pienikokoisempia kuin 68000-prosessorille tehdyt"
  775.         " perusversiot. AHI-äänijärjestelmän 68000-versioissa on"
  776.         " vähemmän ominaisuuksia ja huonompi äänenlaatu."
  777.         " 68020-versiot kannattaa asentaa, jos käytössäsi"
  778.         " on vähintään 68020-prosessorilla varustettu kone.\n"
  779.         " 68060-versio välttää hitaita 64-bittisiä jakolaskuja. Älä"
  780.         " asenna tätä versiota ellei sinulla ole 68060-prosessoria!\n\n"
  781.     ))
  782.  
  783.     (set #t_devfiles    "Mitkä kehitysympäristön tiedostot haluat asentaa?")
  784.     (set #t_devdocs        "Autodocit ja AHI-kehitysympäristön ohjeet")
  785.     (set #t_source        "Esimerkkilähdekoodit")
  786.     (set #t_asm        "Assemblerin include-tiedostot")
  787.     (set #t_cgen        "Yleiset C include-tiedostot")
  788.     (set #t_e        "E moduletiedostot")
  789.     (set #t_fd        "FD-tiedostot")
  790.     (set #t_ade        "Ylimääräiset ADE gcc include-tiedostot")
  791.     (set #t_sas        "Ylimääräiset SAS/C (ja DICE) include-tiedostot")
  792.     (set #t_storm        "Ylimääräiset StormC include-tiedostot")
  793.     (set #t_devfileshelp    (cat
  794.         "Autodocit ja AHI-kehitysympäristön ohjeet:\n"
  795.         " AHI:n autodocit ja ohjelmointisäännöt.\n\n"
  796.         "Esimerkkilähdekoodit:\n"
  797.         " Joitain esimerkkiohjelmia, suurin osa C-kielellä, mutta"
  798.         " mukana on myös muutamia assembler-lähdekoodeja.\n\n"
  799.         "Assemblerin include-tiedostot:\n"
  800.         " Include-tiedostot, jotka tarvitset ohjelmoidessasi assemblerilla.\n\n"
  801.         "Yleiset C include-tiedostot:\n"
  802.         " Include-tiedostot, jotka tarvitset ohjelmoidessasi C-kielellä.\n\n"
  803.         "E moduletiedostot:\n"
  804.         " Moduletiedostot, AmigaE-ohjelmointia varten.\n\n"
  805.         "FD-tiedostot:\n"
  806.         " Voidaan käyttää 'lvo'-työkalun kanssa, tai jos teet"
  807.         " laitteistoajurin C-kielellä.\n\n"
  808.         "Ylimääräiset ADE gcc include-tiedostot:\n"
  809.         " Gcc:n erikoisinclude-tiedostot (inline, proto jne).\n\n"
  810.         "Ylimääräiset SAS/C (ja DICE) include-tiedostot:\n"
  811.         " SAS/C:n erikoisinclude-tiedostot (pragma, proto jne)."
  812.         " Toimivat osin myös DCC:n kanssa.\n\n"
  813.         "Ylimääräiset StormC include-tiedostot:\n"
  814.         " StormC:n erikoisinclude-tiedostot (pragma, proto jne).\n\n"
  815.     ))
  816.  
  817.  
  818.     (set #t_nodevs
  819.         "Viitettä Devs: ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
  820.     (set #t_noc
  821.         "Viitettä C: ei löytynyt. Kokeile ylempää kättäjän tasoluokitusta.")
  822.     (set #t_noprefs
  823.         "Hakemistoa Sys:Prefs ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
  824.     (set #t_nol
  825.         "Viitettä L: ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
  826.     (set #t_devspath    "Minne haluat asentaa järjestelmätiedostot?")
  827.     (set #t_devspathhelp    (cat
  828.         " Valitsemaasi hakemistoon tulee olla viite Devs:."
  829.         " Asennusohjelma kopioi ahi.device-tiedoston, laitteistoajurit"
  830.         " ja audiotilojen kuvaustiedostot tähän hakemistoon."
  831.         " Ajureille ja audiotilatiedostoille luodaan alihakemistot.\n\n"
  832.     ))
  833.     (set #t_cpath        "Minne haluat asentaa ohjelman 'AddAudioModes'?")
  834.     (set #t_cpathhelp    (cat
  835.         " AddAudioModes on pieni komentoriviohjelma, jonka avulla"
  836.         " voit muokata audiotiloja sisältävää tietokantaa"
  837.         " (aivan kuten näyttötilojen tietokanta).\n"
  838.         " Komentoriviohjelmat sijaitsevat yleensä hakemistossa C:.\n\n"
  839.     ))
  840.  
  841.  
  842.     (set #t_localepath    "Minne haluat asentaa sanastot?")
  843.     (set #t_localepathhelp    (cat
  844.         " Valitsemaasi hakemistoon tulee olla viite Locale:."
  845.         " Asennusohjelma kopioi valitsemasi sanastot tässä"
  846.         " hakemistossa oleviin alihakemistoihin.\n\n"
  847.     ))
  848.  
  849.     (set #t_prefspath    "Minne haluat asentaa asetusohjelman?")
  850.     (set #t_prefspathhelp    (cat
  851.         " Asetusohjelman avulla voit määrittää AHI-äänijärjestelmän"
  852.         " asetukset. Voit valita haluamasi laitteiston, fyysiset"
  853.         " ulostulot ja sisäänmenot jne. Asetusohjelmat sijaitsevat"
  854.         " normaalisti hakemistossa Sys:Prefs/.\n"
  855.         " Tämä ohjelma vaatii toimiakseen BGUI:n.\n\n"
  856.     ))
  857.  
  858.     (set #t_audiohelp    (cat
  859.         " AUDIO-käsittelijää käytetään kiinnitettäessä laitetta AUDIO:."
  860.         " Kopioimalla tiedostoja tälle laitteelle tai tältä laitteelta"
  861.         " voit toistaa ja tallentaa raakaa äänitietoa, IFF-AIFF- tai"
  862.         " IFF-AIFC-tiedostoja.\n\n"
  863.     ))
  864.  
  865.     (set #t_lpath        "Minne haluat asentaa AUDIO-käsittelijän?")
  866.     (set #t_lpathhelp    (cat
  867.         #t_audiohelp
  868.         " Käsittelijät sijaitsevat yleensä hakemistossa L:.\n\n"
  869.     ))
  870.  
  871.     (set #t_dosdevpath    "Minne haluat asentaa AUDIO-kiinnitystiedoston?")
  872.     (set #t_dosdevpathhelp    (cat
  873.         #t_audiohelp
  874.         " Kiinnitystiedostot sijaitsevat yleensä hakemistossa"
  875.         " Devs:DOSDrivers, jos laitteet kiinnitetään käynnistyksen"
  876.         " yhteydessä. Muutoin kiinnitystiedostot sijaitsevat"
  877.         " varmaankin hakemistossa SYS:Storage/DOSDrivers.\n\n"
  878.     ))
  879.  
  880.     (set #t_dosdriver    "Haluatko kiinnittää laitteen AUDIO: käynnistyksen yhteydessä?")
  881.     (set #t_dosdriverhelp    (cat
  882.         " Jos haluat, laite AUDIO: voidaan kiinnittää käynnistyksen"
  883.         " yhteydessä. Tämä poistaa tarpeen kiinnittää laite erikseen"
  884.         " aina kun haluat käyttää sitä. Kiinnitys ei vie paljoakaan"
  885.         " muistia, joten on suositeltavaa, että valitset 'Kyllä'.\n\n"
  886.     ))
  887.  
  888.     (set #t_userdocpath    "Minne haluat asentaa käyttäjän ohjeet?")
  889.     (set #t_userdocpathhelp    (cat
  890.         " Ohjeet ovat AmigaGuide®-tiedostona, jossa kuvataan"
  891.         " AHI-äänijärjestelmää ja sen osia.\n\n"
  892.     ))
  893.  
  894.     (set #t_srcpath        (cat
  895.         " Minne haluat asentaa esimerkkilähdekoodit?"
  896.         " Valitsemaasi hakemistoon luodaan alihakemisto AHI."
  897.     ))
  898.     (set #t_srcpathhelp    (cat
  899.         " Esimerkkilähdekoodit, sekä C- että assembler-kieliset,"
  900.         " tallennetaan alihakemistoon AHI. Kaikki entiset tiedostot"
  901.         " hakemistossa AHI tuhotaan!\n\n"
  902.     ))
  903.     (set #t_oldsrc        (cat
  904.         " Siellä on jo alihakemisto AHI."
  905.         " Kaikki tiedostot alihakemistossa AHI poistetaan."
  906.     ))
  907.  
  908.     (set #t_devdocspath    " Minne haluat asentaa kehitysympäristön ohjeet?")
  909.     (set #t_devdocspathhelp    (cat
  910.         " Asennusohjelma sijoittaa autodocit ja AHI-kehitysympäristön"
  911.         " ohjeet valitsemaasi hakemistoon.\n\n"
  912.     ))
  913.  
  914.     (set #t_aincpath    " Missä sijaitsevat assemblerisi include-tiedostot?")
  915.     (set #t_aincpathhelp    (cat
  916.         " Asennusohjelma sijoittaa assemblerin include-tiedostot"
  917.         " valitsemasi hakemiston alihakemistoihin (lvo, devices ja"
  918.         " libraries).\n\n"
  919.     ))
  920.  
  921.     (set #t_fdpath        " Missä sijaitsevat FD-tiedostosi?")
  922.     (set #t_fdpathhelp    (cat
  923.         " FD-tiedostot kuvaavat kirjaston tai laitteen toimintoja."
  924.         " Niitä voidaan käyttää 'lvo'-ohjelman kanssa, ja niistä"
  925.         " voi olla hyötyä kirjoittaessasi laitteistoajureita.\n\n"
  926.     ))
  927.  
  928.     (set #t_cincpath    " Missä sijaitsevat C-kääntäjäsi include-tiedostot?")
  929.     (set #t_cincpathhelp    (cat
  930.         " Asennusohjelma sijoittaa yleiset C-kääntäjän include-tiedostot"
  931.         " valitsemasi hakemiston alihakemistoihin (clib, devices"
  932.         " ja libraries).\n\n"
  933.     ))
  934.  
  935.     (set #t_emodpath    " Missä sijaitsevat E moduletiedostosi?")
  936.     (set #t_emodpathhhelp    (cat
  937.         " Asennusohjelma sijoittaa E moduletiedostot valitsemasi"
  938.         " hakemiston alihakemistoihin (devices ja libraries).\n\n"
  939.     ))
  940.  
  941.     (set #t_adeincpath    " Minne haluat sijoittaa ADE gcc include-tiedostot?")
  942.     (set #t_adeincpathhelp    (cat
  943.         " Gcc tarvitsee muutamia ylimääräisiä tiedostoja"
  944.         " tietääkseen mitä rekistereitä voidaan käyttää"
  945.         " kutsuttaessa AHI-funktioita. Tämä tieto on"
  946.         " tiedostoissa, jotka kopioidaan alihakemistoihin"
  947.         " inline, pragmas ja proto.\n\n"
  948.     ))
  949.  
  950.     (set #t_sasincpath    " Minne haluat sijoitta SAS/C (ja DICE) include-tiedostot?")
  951.     (set #t_sasincpathhelp    (cat
  952.         " SAS/C (ja DICE) tarvitsevat muutamia ylimääräisiä"
  953.         " tiedostoja tietääkseen mitä rekistereitä voidaan"
  954.         " käyttää kutsuttaessa AHI-funktioita. Tämä tieto on"
  955.         " tiedostoissa, jotka kopioidaan alihakemistoihin"
  956.         " pragmas ja proto.\n\n"
  957.     ))
  958.  
  959.     (set #t_stormincpath    " Minne haluat sijoittaa StormC include-tiedostot?")
  960.     (set #t_stormincpathhelp (cat
  961.         " StormC tarvitsee muutamia ylimääräisiä tiedostoja"
  962.         " tietääkseen mitä rekistereitä voidaan käyttää"
  963.         " kutsuttaessa AHI-funktioita. Tämä tieto on tiedostoissa,"
  964.         " jotka kopioidaan alihakemistoihin pragma ja proto.\n\n"
  965.     ))
  966.  
  967.     (set #t_ahidevhelp    (cat
  968.         " Ahi.device on AHI-äänijärjestelmän sydän."
  969.         " Tämä on ainoa osa, joka näkyy muille ohjelmille.\n\n"
  970.     ))
  971.  
  972.     (set #t_runaddmodes    (cat
  973.         " Ajan komennon AddAudioModes luodakseni"
  974.         " audiotilatietokannan."
  975.     ))
  976.  
  977.  
  978.     (set #t_overwritemode1
  979.         " Audiotilakuvauksesta on jo olemassa kopio ")
  980.     (set #t_overwritemode2 " tiedostossa ")
  981.     (set #t_overwritemode3    (cat
  982.         ".\n\n"
  983.         " Kirjoitetaanko päälle?"
  984.         " Kaikki audiotilaan tekemäsi muutokset tulevat katoamaan!"
  985.     ))
  986.  
  987. ))
  988.  
  989. (if (= @language "ÃeÓtina")
  990. (    ; Tranlated by Vit Sindlar <sindlarv@hotmail.com>
  991.  
  992.     (set #t_welcome        (cat
  993.         " VÉtejte pÒi instalaci AHI. AHI je pÒesmÅrovatelnÙ"
  994.         " audio syst×m, kterÙ je moÚno pouÚÉvat jak s vestavÅnÙm"
  995.         " zvukovÙm Ãipem (Paula), tak i nÅkolika zvukovÙmi kartami."
  996.         " AktuÁlnÉ verze tohoto software je 4."
  997.     ))
  998.     (set #t_oldinstaller    (cat
  999.         " VlastnÉte starou verzi programu Installer. Tento"
  1000.         " instalaÃnÉ skript pravdÅpodobnÅ vyÚaduje verzi 43.3"
  1001.         " a vyÓÓÉ. Instalace bude pokraÃovat, ale nelze zaruÃit,"
  1002.         " Úe vÓe bude fungovat, tak jak mÁ.\n"
  1003.         " Opravdu si pÒejete pokraÃovat?"
  1004.     ))
  1005.     (set #t_oldinstallerhelp (cat
  1006.         " Verze programu Installer, kterÙ pouÚÉvÁte je pÒÉliÓ"
  1007.           " starÁ. NejnovÅjÓÉ verzi naleznete vÚdy na Internetu,"
  1008.         " napÒ. na Aminetu, v adresÁÒi util/misc. NÁzev archÉvu"
  1009.         " je \"Installer-43_3.lha\":\n"
  1010.         " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  1011.  
  1012.     ))
  1013.     (set #t_installaborted    "Instalace byla pÒeruÓena.")
  1014.  
  1015.     (set #t_installing        "ProbÉhÁ instalace ")
  1016.     (set #t_installingdocs    "Instaluje se dokumentace pro vÙvojÁÒe")
  1017.     (set #t_installingincs    "InstalujÉ se includes")
  1018.     (set #t_installingsrc    "InstalujÉ se pÒÉklady zdrojovÙch kÏdÊ")
  1019.     (set #t_nofiles        "Soubory pro instalaci chybÉ.")
  1020.  
  1021.     (set #t_nohelp        "Pro tuto poloÚku nenÉ dostupnÁ nÁpovÅda.")
  1022.  
  1023.     (set #t_parts        "Kter× ÃÁsti AHI si pÒejete nainstalovat?")
  1024.     (set #t_system        "Syst×mov× soubory")
  1025.     (set #t_prefs        "Program pro nastavenÉ")
  1026.     (set #t_audio        "AUDIO handler");
  1027.     (set #t_userdoc        "UÚivatelskÁ dokumentace")
  1028.     (set #t_a-developer    "Soubory pro vÙvojÁÒe programÊ")
  1029.     (set #t_d-developer    "Soubory pro vÙvojÁÒe ovladaÃÊ")
  1030.     (set #t_userhelp    (cat
  1031.         "Syst×mov× soubory:\n"
  1032.         " Syst×mov× soubory - to je vlastnÅ jÁdro cel×ho AHI a musÉ"
  1033.         " bÙt vÚdy nainstalovÁny. Jsou nutn× pro sprÁvnou funkci"
  1034.         " vÓech ostatnÉch komponent.\n\n"
  1035.         "Program pro nastavenÉ:\n"
  1036.         " Program pro nastavenÉ - je pouÚÉvÁn pro pohodln× nastavenÉ"
  1037.         " mnoha voleb AHI. Tato ÃÁst AHI vyÚaduje ke sv× Ãinnosti"
  1038.         " nainstalovanou knihovnu BGUI.library.\n\n"
  1039.         "AUDIO handler:\n"
  1040.         " UmoÚÎuje pÒehrÁvat a zaznamenÁvat samply velice jednoduÓe"
  1041.         " pomocÉ pÒÉkazu 'copy'.\n\n"
  1042.         "UÚivatelskÁ dokumentace:\n"
  1043.         " Dokumentace napsanÁ ve standardnÉm formÁtu AmigaGuide®,"
  1044.         " kterÁ popisuje AHI a ostatnÉ ÃÁsti syst×mu.\n\n"
  1045.     ))
  1046.     (set #t_devhelp        (cat
  1047.         "Soubory pro vÙvojÁÒe programÊ:\n"
  1048.         " Autodocs, includes, pÒÉkladov× zdrojov× kÏdy atd."
  1049.         " Je nutn× nainstalovat pouze v pÒÉpadÅ, Úe budete vyvÉjet"
  1050.         " svÊj vlastnÉ program s podporou AHI.\n\n"
  1051.         "Soubory pro vÙvojÁÒe ovladaÃÊ:\n"
  1052.         " Autodocs, pÒÉkladovÙ zdrojovÙ kÏd atd. Je nutn× pouze"
  1053.         " v pÒÉpadÅ, Úe budete vyvÉjet ovladaÃe pro zvukov× karty.\n\n"
  1054.     ))
  1055.  
  1056.     (set #t_gui        (cat
  1057.         " Kterou z verzÉ programÊ pro nastavenÉ byste si pÒÁli"
  1058.         " nainstalovat?"
  1059.     ))
  1060.     (set #t_guihelp        (cat
  1061.         " Zvolte typ GUI, kter×mu dÁvÁte pÒednost, prosÉm.\n\n"
  1062.     ))
  1063.     (set #t_guibgui        "Verze v BGUI")
  1064.     (set #t_guimui        "Verze v MUI")
  1065.  
  1066.     (set #t_icon         "Kter× ikony si pÒejete nainstalovat?")
  1067.     (set #t_iconstd        "StandardnÉ 4-barevn×")
  1068.     (set #t_iconmwb        "8-barevn× typu MagicWB")
  1069.     (set #t_iconhelp    (cat
  1070.         " Zde si zvolÉte druh ikony, kterou si pÒejete pouÚÉvat pro"
  1071.         " program pro nastavenÉ. Autorem ikony typu MagicWB je Erol Ismael.\n\n"
  1072.     ))
  1073.  
  1074.     (set #t_languages    (cat
  1075.         "KterÙ z jazykÊ si pÒejete nainstalovat?"
  1076.         " StandardnÉ je angliÃtina."))
  1077.     (set #t_languageshelp    (cat
  1078.         " JestliÚe chybÉ zrovna pÒeklad do VaÓeho jazyka, autor AHI"
  1079.         " by VÁs velmi rÁd poÚÁdal o pÒeklad. Upravte a pÒeloÚte"
  1080.         " soubory User/Catalogs/NewCatalog.ct a User/Catalogs/NewPrefsCatalog.ct"
  1081.         " a poÓlete je na tuto adresu:\n"
  1082.         " lcs@lysator.liu.se\n\n"
  1083.         " Je dobr× se nejdÒÉve zeptat autora, zda jiÚ nÅkdo pÒeklad"
  1084.         " do VaÓeho jazyka nedÅlÁ.\n\n"
  1085.  
  1086.     ))
  1087.  
  1088.     (set #t_drivers        (cat
  1089.         "Kter× z ovladaÃÊ AHI si pÒejete nainstalovat?"
  1090.         " Je lepÓÉ si nainstalovat pouze ovladaÃe, kter× skuteÃnÅ potÒebujete."))
  1091.     (set #t_drivershelp    (cat
  1092.         "Delfina:\n"
  1093.         " ZvukovÁ karta Delfina s DSP.\n\n"
  1094.         "Filesave:\n"
  1095.         " UmoÚnÉ ÃtenÉ/zÁpis samplÊ do souboru.\n\n"
  1096.         "Maestro Pro:\n"
  1097.         " ZvukovÁ karta Maestro Pro.\n\n"
  1098.         "Melody MPEG:\n"
  1099.         " ZvukovÁ karta Melody MPEG.\n\n"
  1100.         "Paula:\n"
  1101.         " StandardnÉ zvukovÙ Ãip Amigy.\n\n"
  1102.         "Prelude:\n"
  1103.         " ZvukovÁ karta Prelude.\n\n"
  1104.         "Toccata:\n"
  1105.         " ZvukovÁ karta Toccata.\n\n"
  1106.         "Wavetools:\n"
  1107.         " ZvukovÁ karta Wavetools.\n\n"
  1108.     ))
  1109.  
  1110.     (set #t_CPUver        "Pro jakÙ procesor si pÒejete nainstalovat programy?")
  1111.     (set #t_CPUverhelp        (cat
  1112.         " Programy optimalizovan× pro 68020 a vyÓÓÉ jsou mnohem"
  1113.         " rychlejÓÉ a Ãasto tak× menÓÉ neÚ verze pro obyÃejnou 68000."
  1114.         " NavÉc, v pÒÉpadÅ AHI, majÉ verze pro 68000 m×nÅ funkcÉ"
  1115.         " a pracujÉ s omezenou kvalitou zvuku. SkuteÃnÅ VÁm doporuÃuji"
  1116.         " zvolit pÒi instalaci verze programÊ optimalizovan× pro 68020.\n"
  1117.         " Verze pro 68060 neprovÁdÉ pomalÁ 64-bitovÁ dÅlenÉ. Pokud tedy"
  1118.         " tento procesor nevlastnÉte, neinstalujte ji!\n\n"
  1119.     ))
  1120.  
  1121.     (set #t_devfiles    "Kter× ze souborÊ pro vÙvojÁÒe si pÒejete nainstalovat?")
  1122.     (set #t_devdocs    "Autodocs a dokumentaci pro vÙvojÁÒe k AHI")
  1123.     (set #t_source        "PÒÉkladov× zdrojov× kÏdy")
  1124.     (set #t_asm        "Includes pro assembler")
  1125.     (set #t_cgen        "Includes pro obecn× C")
  1126.     (set #t_e            "Moduly pro E")
  1127.     (set #t_fd        "Soubory FD")
  1128.     (set #t_ade        "Dodatkov× includes pro ADE gcc")
  1129.     (set #t_sas        "Dodatkov× includes pro SAS/C (a DICE)")
  1130.     (set #t_storm        "Dodatkov× includes pro StormC")
  1131.     (set #t_devfileshelp    (cat
  1132.         "Autodocs a dokumentaci pro vÙvojÁÒe k AHI:\n"
  1133.         " Autodocs a pravidla pro programovÁnÉ AHI.\n\n"
  1134.         "PÒÉkladov× zdrojov× kÏdy:\n"
  1135.         " NÅkolik pÒÉkladovÙch programÊ, nejÃastÅji jsou napsÁny v C,"
  1136.         " ale je tam i nÅkolik kouskÊ v assembleru.\n\n"
  1137.         "Includes pro assembler:\n"
  1138.         " Includes, kter× jsou tÒeba pro programovÁnÉ v assembleru.\n\n"
  1139.         "Includes pro obecn× C:\n"
  1140.         " Includes, kter× jsou tÒeba pro programovÁnÉ v C.\n\n"
  1141.         "Moduly pro E:\n"
  1142.         " Moduly, kter× jsou nutn× pro AmigaE.\n\n"
  1143.         "Soubory FD:\n"
  1144.         " Pro pouÚitÉ s programem 'lvo', nebo v pÒÉpadÅ, Úe budete"
  1145.         " psÁt ovladaàpro zvukovou kartu v C.\n\n"
  1146.         "Dodatkov× includes pro ADE gcc:\n"
  1147.         " SpeciÁlnÉ includes pro gcc (inline, proto atd).\n\n"
  1148.         "Dodatkov× includes pro SAS/C (a DICE):\n"
  1149.         " SpeciÁlnÉ includes pro SAS/C (pragmas, proto atd)."
  1150.         " Budou fungovat tak× s DCC, ale bez volÁnÉ tagÊ.\n\n"
  1151.         "Dodatkov× includes pro StormC:\n"
  1152.         " SpeciÁlnÉ includes pro StormC (pragmas, proto atd).\n\n"
  1153.     ))
  1154.  
  1155.  
  1156.     (set #t_nodevs            (cat
  1157.         "Nelze nal×zt pÒiÒazenÉ Devs:. PouÚijte vyÓÓÉ mÏd instalace"
  1158.         " (pro zkuÓenÅjÓÉ uÚivatele)."
  1159.     ))
  1160.     (set #t_noc            (cat
  1161.         "Nelze nal×zt pÒiÒazenÉ C:. PouÚijte vyÓÓÉ mÏd instalace"
  1162.         " (pro zkuÓenÅjÓÉ uÚivatele)."
  1163.     ))
  1164.     (set #t_noprefs        (cat
  1165.         "Nelze nal×zt adresÁÒ Sys:Prefs. PouÚijte vyÓÓÉ mÏd instalace"
  1166.         " (pro zkuÓenÅjÓÉ uÚivatele)."
  1167.     ))
  1168.     (set #t_nol            (cat
  1169.         "Nelze nal×zt pÒiÒazenÉ L:. PouÚijte vyÓÓÉ mÏd instalace"
  1170.         " (pro zkuÓenÅjÓÉ uÚivatele)."
  1171.     ))
  1172.     (set #t_devspath    "Kam si pÒejete nainstalovat syst×mov× soubory?")
  1173.     (set #t_devspathhelp    (cat
  1174.         " AdresÁÒ, kterÙ zvolÉte musÉ bÙt souÃÁstÉ pÒiÒazenÉ Devs:."
  1175.         " PÒi instalaci se tam nakopÉruje ahi.device, ovladaÃe pro"
  1176.         " hardware a soubory pro jednotliv× audio mÏdy."
  1177.         " Pro ovladaÃe a soubory s jednotlivÙmi audio mÏdy budou"
  1178.         " vytvoÒeny podadresÁÒe.\n\n"
  1179.     ))
  1180.     (set #t_cpath        "Kam si pÒejete nainstalovat AddAudioModes?")
  1181.     (set #t_cpathhelp        (cat
  1182.         " AddAudioModes je pÒÉkaz, kterÙ slouÚÉ ke sprÁvÅ databÁze"
  1183.         " audio mÏdÊ (podobnost s databÁzÉ rozliÓovacÉch mÏdÊ je"
  1184.         " ÃistÅ nÁhodnÁ :-). PÒÉkaz by mÅl bÙt normÁlnÅ umÉstÅn"
  1185.         " v pÒiÒazenÉ C:.\n\n"
  1186.     ))
  1187.  
  1188.  
  1189.     (set #t_localepath    "Kam si pÒejete nainstalovat lokalizaÃnÉ katalogy?")
  1190.     (set #t_localepathhelp    (cat
  1191.         " AdresÁÒ, kterÙ zvolÉte musÉ bÙt souÃÁstÉ pÒiÒazenÉ Locale:."
  1192.         " PÒi instalaci se tam nakopÉrujÉ lokalizaÃnÉ katalogy, kter×"
  1193.         " jste si vybrali. PochopitelnÅ budou jednotliv× katalogy"
  1194.         " nakopÉrovÁny do pÒÉsluÓnÙch adresÁÒÊ s danÙm jazykem.\n\n"
  1195.     ))
  1196.  
  1197.     (set #t_prefspath    "Kam si pÒejete nainstalovat program pro nastavenÉ?")
  1198.     (set #t_prefspathhelp    (cat
  1199.         " Program pro nastavenÉ VÁm umoÚnÉ nakonfigurovat AHI pÒesnÅ"
  1200.         " dle moÚnostÉ poÃÉtaÃe. Je zde moÚno nastavit, kterou z ÃÁstÉ"
  1201.         " zvukov×ho hardware si pÒejete pouÚÉvat, jak× vstupy a vÙstupy"
  1202.         " atd. Programy pro nastavenÉ se obvykle nachÁzÉ v adresÁÒi"
  1203.         " SYS:Prefs/.\n"
  1204.         " Tento program vyÚaduje balÉk BGUI nebo MUI, coÚ zÁleÚÉ na"
  1205.         " volbÅ verze programu pro nastavenÉ.\n\n"
  1206.     ))
  1207.  
  1208.     (set #t_audiohelp        (cat
  1209.         " AUDIO handler se pouÚÉvÁ k pÒipojenÉ zaÒÉzenÉ AUDIO:. PouhÙm"
  1210.         " kopÉrovÁnÉm souborÊ z a do tohoto zaÒÉzenÉ je moÚno pÒehrÁvat"
  1211.         " a zaznamenÁvat soubory v RAW, IFF-AIFF nebo IFF-AIFC.\n\n"
  1212.     ))
  1213.  
  1214.     (set #t_lpath        "Kam si pÒejete nainstalovat AUDIO handler?")
  1215.     (set #t_lpathhelp        (cat
  1216.         #t_audiohelp
  1217.         " Handlery jsou obvykle umÉstÅny v pÒiÒazenÉ L:.\n\n"
  1218.     ))
  1219.  
  1220.     (set #t_dosdevpath    "Kam si pÒejete nainstalovat pÒipojovacÉ soubor AUDIO (mount)?")
  1221.     (set #t_dosdevpathhelp    (cat
  1222.         #t_audiohelp
  1223.         " PÒipojovacÉ soubory (mount) jsou obvykle umÉstÅny v adresÁÒi"
  1224.         " Devs:DOSDrivers, v pÒÉpadÅ, Úe si je pÒejete pÒipojovat hned"
  1225.         " po startu. Pokud si to nepÒejete pak by mÅly bÙt pÒesunuty"
  1226.         " do adresÁÒe SYS:Storage/DOSDrivers.\n\n"
  1227.     ))
  1228.  
  1229.     (set #t_dosdriver    "PÒejete si mÉt aktivovÁn AUDIO handler ihned startu?")
  1230.     (set #t_dosdriverhelp    (cat
  1231.         " V pÒÉpadÅ, Úe si to pÒejete, je moÚno nainstalovat AHI tak,"
  1232.         " Úe zaÒÉzenÉ AUDIO: bude aktivnÉ ihned po startu. Tento zpÊsob"
  1233.         " ÓetÒÉ Ãas, kterÙ jinak musÉte vynaloÚit na proklikÁnÉ se do"
  1234.         " SYS:Storage/DOSDrivers, a nevyÚaduje mnoho pamÅti. Z tohoto"
  1235.         " dÊvodu se doporuÃuje odpovÅdÅt 'Ano'.\n\n"
  1236.     ))
  1237.  
  1238.     (set #t_userdocpath    "Kam si pÒejete nainstalovat uÚivatelskou dokumentaci?")
  1239.     (set #t_userdocpathhelp    (cat
  1240.         " Toto je soubor v formÁtu AmigaGuide®, kterÙ popisuje vlastnosti"
  1241.         " audio syst×mu AHI.\n\n"
  1242.     ))
  1243.  
  1244.     (set #t_srcpath        (cat
  1245.         " Kam si pÒejete nainstalovat pÒÉkladov× zdrojov× kÏdy?"
  1246.         " Na tomto mÉstÅ bude vytvoÒen adresÁÒ s nÁzvem AHI."
  1247.     ))
  1248.     (set #t_srcpathhelp        (cat
  1249.         " PÒÉkladov× zdrojov× kÏdy (v jazyce C i assembleru) budou"
  1250.         " uloÚeny v podadresÁÒi nazvan×m AHI. Jak×koliv soubory, kter×"
  1251.         " jsou aktuÁlnÅ uloÚeny v adresÁÒi AHI, budou smazÁny!\n\n"
  1252.     ))
  1253.     (set #t_oldsrc            (cat
  1254.         " Na tomto mÉstÅ jiÚ adresÁÒ AHI existuje."
  1255.         " VÓechny soubory v nÅm budou smazÁny."
  1256.     ))
  1257.  
  1258.     (set #t_devdocspath    " Kam si pÒejete nainstalovat dokumentaci pro vÙvojÁÒe?")
  1259.     (set #t_devdocspathhelp    (cat
  1260.         " Autodocs a dokumentace pro vÙvojÁÒe budou uloÚeny"
  1261.         " do adresÁÒe, kterÙ si zvolÉte.\n\n"
  1262.     ))
  1263.  
  1264.     (set #t_aincpath    " Kde mÁte uloÚen× sv× includes pro assembler?")
  1265.     (set #t_aincpathhelp    (cat
  1266.         " Includes pro assembler budou uloÚeny do svÙch podadresÁÒÊ"
  1267.         " (lvo, devices a libraries) na disku, kterÙ si zvolÉte.\n\n"
  1268.     ))
  1269.  
  1270.     (set #t_fdpath        " Kam si pÒejete uloÚit soubory FD?")
  1271.     (set #t_fdpathhelp        (cat
  1272.         " FD jsou soubory popisujÉcÉ funkce knihoven a zaÒÉzenÉ"
  1273.         " PouÚÉvajÉ se s programem 'lvo' a jsou tak× uÚiteÃn×"
  1274.         " pÒi vytvÁÒenÉ ovladaÃÊ pro hardware.\n\n"
  1275.     ))
  1276.  
  1277.     (set #t_cincpath    " Kde mÁte uloÚen× sv× includes pro C?")
  1278.     (set #t_cincpathhelp    (cat
  1279.         " Includes pro obecn× C budou uloÚeny do svÙch"
  1280.         " podadresÁÒÊ (clib, devices a libraries) na disku, kterÙ"
  1281.         " si zvolÉte.\n\n"
  1282.     ))
  1283.  
  1284.     (set #t_emodpath    " Kde mÁte uloÚen× sv× moduly pro E?")
  1285.     (set #t_emodpathhhelp    (cat
  1286.         " Moduly pro E budou uloÚeny do sv×ho adresÁÒe a jeho"
  1287.         " podadresÁÒÊ (devices a libraries) na disku, kterÙ si"
  1288.         " zvolÉte.\n\n"
  1289.     ))
  1290.  
  1291.     (set #t_adeincpath    " Kam si pÒejete uloÚit includes pro ADE gcc?")
  1292.     (set #t_adeincpathhelp    (cat
  1293.         " gcc potÒebuje extra soubory k tomu, aby si zjistil, kter×"
  1294.         " registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
  1295.         " je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
  1296.         " inline, pragmas a proto.\n\n"
  1297.     ))
  1298.  
  1299.     (set #t_sasincpath    " Kam si pÒejete uloÚit includes pro SAS/C (a DICE)?")
  1300.     (set #t_sasincpathhelp    (cat
  1301.         " SAS/C (a DICE) potÒebuje extra soubory k tomu, aby si zjistil,"
  1302.         " kter× registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
  1303.         " je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
  1304.         " inline, pragmas a proto.\n\n"
  1305.     ))
  1306.  
  1307.     (set #t_stormincpath    " Kam si pÒejete uloÚit includes pro StormC?")
  1308.     (set #t_stormincpathhelp (cat
  1309.         " StormC potÒebuje extra soubory k tomu, aby si zjistil, kter×"
  1310.         " registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
  1311.         " je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
  1312.         " inline, pragmas a proto.\n\n"
  1313.     ))
  1314.  
  1315.     (set #t_ahidevhelp        (cat
  1316.         " ahi.device je jÁdrem cel×ho audio"
  1317.         " syst×mu AHI. Toto je jedinÁ ÃÁst tohoto"
  1318.         " syst×mu, o kter× 'vÉ' ostatnÉ programy.\n\n"
  1319.     ))
  1320.  
  1321.     (set #t_runaddmodes        (cat
  1322.         " Bude spuÓtÅn pÒÉkaz AddAudioModes k tomu,"
  1323.         " aby se obnovila databÁze audio mÏdÊ."
  1324.     ))
  1325.  
  1326.  
  1327.     (set #t_overwritemode1
  1328.         " V tomto adresÁÒi jiÚ soubor s popisem audio mÏdu existuje ")
  1329.     (set #t_overwritemode2 " v ")
  1330.     (set #t_overwritemode3    (cat
  1331.         ".\n\n"
  1332.         " SkuteÃnÅ si to pÒejete pÒepsat?"
  1333.         " VeÓkerÁ zmÅnÅnÁ nastavenÉ budou ztracena!"
  1334.     ))
  1335. ))
  1336.  
  1337. ;(if (= @language "svenska")
  1338. ;(    ; Translated by Your Name <your@email.adr>
  1339. ;))
  1340.  
  1341.  
  1342. ;**
  1343. ;** Procedures
  1344. ;**
  1345.  
  1346. (procedure P_INSTDRIVER #pi_audioname #pi_modename
  1347. (
  1348.     (set #pi_drvpath (tackon #devspath "AHI/"))
  1349.     (set #pi_modepath (tackon #devspath "AudioModes/"))
  1350.     (if (not (exists #pi_drvpath))
  1351.         (makedir #pi_drvpath)
  1352.     )
  1353.     (if (not (exists #pi_modepath))
  1354.         (makedir #pi_modepath)
  1355.     )
  1356.  
  1357.     (if (exists (tackon "User/Devs/AHI" (cat #pi_audioname #ver68k)))
  1358.     (
  1359.         (set #pi_audionamesrc (cat #pi_audioname #ver68k))
  1360.     )
  1361.     (
  1362.         (set #pi_audionamesrc #pi_audioname)
  1363.     ))
  1364.  
  1365.     (copylib
  1366.         (help (cat #t_drivershelp @copylib-help))
  1367.         (prompt (cat #t_installing #pi_drvpath #pi_audionamesrc))
  1368.         (source (tackon "User/Devs/AHI" #pi_audionamesrc))
  1369.         (dest #pi_drvpath)
  1370.         (newname #pi_audioname)
  1371.         (confirm)
  1372.     )
  1373.  
  1374.     (set #pt_copymode 0)
  1375.     (if (exists (tackon #pi_modepath #pi_modename))
  1376.     (if (exists (tackon #pi_modepath #pi_modename))
  1377.     (
  1378. ;        (if (askbool
  1379. ;            (prompt    (cat #t_overwritemode1
  1380. ;                #pi_modename
  1381. ;                #t_overwritemode2
  1382. ;                #pi_drvpath
  1383. ;                #t_overwritemode3
  1384. ;            ))
  1385. ;            (default 1)
  1386. ;            (help #t_drivershelp)
  1387. ;        )
  1388. ;        (
  1389.             (set #pt_copymode 1)
  1390. ;        ))
  1391.     ))
  1392.     ( ; else (exists)
  1393.         (set #pt_copymode 1)
  1394.     ))
  1395.     (if (= #pt_copymode 1)
  1396.     (
  1397.         (copyfiles 
  1398.             (prompt (cat #t_installing #pi_modepath #pi_modename))
  1399.             (source (tackon "User/Devs/AudioModes" #pi_modename))
  1400.             (dest #pi_modepath)
  1401.         )
  1402.     ))
  1403. ))
  1404.  
  1405. (procedure P_INSTCATALOG #pi_language
  1406. (
  1407.     (set #pi_dest (tackon (tackon #localepath "Catalogs") #pi_language))
  1408.     (copyfiles 
  1409.         (prompt (cat #t_installing (tackon #pi_dest #pi_language)))
  1410.         (source (tackon "User/Catalogs" #pi_language))
  1411.         (dest #pi_dest)
  1412.         (all)
  1413.     )
  1414. ))
  1415.  
  1416. ;** 
  1417. ;** Main installation procedure starts here...
  1418. ;**
  1419.  
  1420. (set    #system        1    ;System files
  1421.     #prefs        2    ;Preferences program
  1422.     #audio        4    ;The AHI handler
  1423.     #userdoc    8    ;User documentation
  1424.     #a-developer    16    ;App. programmers developer files
  1425.     #d-developer    32    ;Drv. programmers developer files
  1426. )
  1427. (set    #delfina    1    ;Sound card drivers
  1428.     #filesave    2
  1429.     #maestropro    4
  1430.     #melody        8
  1431.     #paula        16
  1432.     #prelude    32
  1433.     #toccata    64
  1434.     #wavetools    128
  1435. )
  1436.  
  1437. (set    #devdocs    1    ;Autodocs and programming guidelines
  1438.     #source        2    ;Example source code
  1439.     #asm        4    ;Assembler include files
  1440.     #cgen        8    ;Generic C include files
  1441.     #e        16    ;E module files
  1442.     #fd        32    ;FD-files
  1443.     #ade        64    ;ADE gcc include files
  1444.     #sas        128    ;SAS/C include files
  1445.     #storm        256    ;StormC include files
  1446. )
  1447.  
  1448. ;**
  1449. ;** Make sure we're using a recent version of the installer
  1450. ;**
  1451.  
  1452. (if (< @installer-version (+ (* 43 65536) 3))
  1453. (
  1454.     (if (not (askbool
  1455.         (prompt #t_oldinstaller)
  1456.         (help #t_oldinstallerhelp)
  1457.     ))
  1458.     (
  1459.         (abort (cat #t_installaborted "\n\n" #t_oldinstallerhelp))
  1460.     ))
  1461. ))
  1462.  
  1463. ;**
  1464. ;** Welcome!
  1465. ;**
  1466.  
  1467. (welcome #t_welcome)
  1468.  
  1469. ;**
  1470. ;** Find out which parts should be installed
  1471. ;**
  1472.  
  1473. (set #default 0 #helptext "")
  1474. (set #parts 0)
  1475.  
  1476. (if (exists "User")
  1477. (
  1478.     (set #helptext (cat #helptext #t_userhelp))
  1479.     (set #default (bitor #default #system #prefs #audio #userdoc))
  1480. )
  1481. ( ; else
  1482.     (set #t_system "")
  1483.     (set #t_prefs "")
  1484.     (set #t_audio "")
  1485.     (set #t_userdoc "")
  1486.  
  1487. ))
  1488.  
  1489. (if (exists "Developer")
  1490. (
  1491.     (set #helptext (cat #helptext #t_devhelp))
  1492.     (set #default (bitor #default #a-developer #d-developer))
  1493. )
  1494. ( ; else
  1495.     (set #t_a-developer "")
  1496.     (set #t_d-developer "")
  1497. ))
  1498.  
  1499. (if (= #default 0)
  1500.     (abort #t_nofiles)
  1501. )
  1502.  
  1503. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1504.  
  1505. ;**
  1506. ;**  Ask which parts should be installed
  1507. ;**
  1508.  
  1509. (if (= @user-level 0)
  1510. (
  1511.     (set #parts #default)
  1512. )
  1513. ( ; Average or Expert
  1514.     (set #parts (askoptions
  1515.         (prompt #t_parts)
  1516.         (help (cat #helptext @askoptions-help))
  1517.         (choices #t_system #t_prefs #t_audio #t_userdoc #t_a-developer #t_d-developer)
  1518.         (default #default)
  1519.     ))
  1520. ))
  1521.  
  1522. ;**
  1523. ;**  Which GUI system?
  1524. ;**
  1525.  
  1526. (set    #gui_bgui    0    ;Use BGUI
  1527.     #gui_mui    1    ;Use MUI
  1528. )
  1529.  
  1530. (set #gui #gui_bgui)
  1531.  
  1532. (if (bitand #parts #prefs)
  1533.     (set #gui (askchoice
  1534.         (prompt #t_gui)
  1535.         (help (cat #t_guihelp @askchoice-help))
  1536.         (choices #t_guibgui #t_guimui)
  1537.         (default #gui))
  1538.     )
  1539. )    
  1540.  
  1541. (if (= #gui #gui_bgui)
  1542.     (set #prefssrc "AHI_BGUI")
  1543. )
  1544. (if (= #gui #gui_mui)
  1545.     (set #prefssrc "AHI_MUI")
  1546. )
  1547.  
  1548.  
  1549. ;**
  1550. ;**  Which icon?
  1551. ;**
  1552.  
  1553. (set    #icon_std    0
  1554.     #icon_mwb    1
  1555. )
  1556.  
  1557. (set #icon #icon_std)
  1558.  
  1559. (if (<> (getenv "MagicWB") "")
  1560.     (set #icon #icon_mwb)
  1561. )
  1562.  
  1563. (if (bitand #parts (bitor #prefs #audio))
  1564.     (set #icon (askchoice
  1565.         (prompt #t_icon)
  1566.         (help (cat #t_iconhelp @askchoice-help))
  1567.         (choices #t_iconstd #t_iconmwb)
  1568.         (default #icon))
  1569.     )
  1570. )    
  1571.  
  1572.  
  1573. ;**
  1574. ;**  Activate the AUDIO handler at boot time?
  1575. ;**
  1576.  
  1577. (set #dosdevpath    "Devs:DOSDrivers")
  1578.  
  1579. (if (and (bitand #parts #audio) (>= @user-level 1))
  1580.     (if (not (askbool
  1581.         (prompt #t_dosdriver)
  1582.         (help (cat #t_dosdriverhelp @askbool-help))
  1583.         (default 1)))
  1584.     (
  1585.         (set #dosdevpath "SYS:Storage/DOSDrivers")
  1586.     ))
  1587. )
  1588.  
  1589. ;**
  1590. ;**  Ask which languages should be installed
  1591. ;**
  1592.  
  1593. (set    #dansk        1
  1594.     #deutsch    2
  1595.     #español    4
  1596.     #français    8
  1597.     #greek        16
  1598.     #hrvatski    32
  1599.     #íslenska    64
  1600.     #italiano    128
  1601.     #nederlands    256
  1602.     #norsk        512
  1603.     #polski        1024
  1604.     #português    2048
  1605.     #srpski        4096
  1606.     #suomi        8192
  1607.     #svenska    16384
  1608.     #ÃeÓtina    32768
  1609.  
  1610. )
  1611.  
  1612. (set    #t_dansk    "Dansk"
  1613.     #t_deutsch    "Deutsch"
  1614.     #t_español    "Español"
  1615.     #t_français    "Français"
  1616.     #t_greek    "Greek"
  1617.     #t_hrvatski    "Hrvatski"
  1618.     #t_íslenska    "Íslenska"
  1619.     #t_italiano    "Italiano"
  1620.     #t_nederlands    "Nederlands"
  1621.     #t_norsk    "Norsk"
  1622.     #t_polski    "Polski"
  1623.     #t_português    "Português"
  1624.     #t_srpski    "Srpski"
  1625.     #t_suomi    "Suomi"
  1626.     #t_svenska    "Svenska"
  1627.     #t_ÃeÓtina    "ãeÓtina"
  1628. )
  1629.  
  1630.  
  1631. (set    #default 0)
  1632.  
  1633. (if (not (exists "User/Catalogs/dansk"))    (set #t_dansk ""))
  1634. (if (not (exists "User/Catalogs/deutsch"))    (set #t_deutsch ""))
  1635. (if (not (exists "User/Catalogs/español"))    (set #t_español ""))
  1636. (if (not (exists "User/Catalogs/français"))    (set #t_français ""))
  1637. (if (not (exists "User/Catalogs/greek"))    (set #t_greek ""))
  1638. (if (not (exists "User/Catalogs/hrvatski"))    (set #t_hrvatski ""))
  1639. (if (not (exists "User/Catalogs/íslenska"))    (set #t_íslenska ""))
  1640. (if (not (exists "User/Catalogs/italiano"))    (set #t_italiano ""))
  1641. (if (not (exists "User/Catalogs/nederlands"))    (set #t_nederlands ""))
  1642. (if (not (exists "User/Catalogs/norsk"))    (set #t_norsk ""))
  1643. (if (not (exists "User/Catalogs/polski"))    (set #t_polski ""))
  1644. (if (not (exists "User/Catalogs/português"))    (set #t_português ""))
  1645. (if (not (exists "User/Catalogs/srpski"))    (set #t_srpski ""))
  1646. (if (not (exists "User/Catalogs/suomi"))    (set #t_suomi ""))
  1647. (if (not (exists "User/Catalogs/svenska"))    (set #t_svenska ""))
  1648. (if (not (exists "User/Catalogs/ÃeÓtina"))    (set #t_ÃeÓtina ""))
  1649.  
  1650. (if (and (exists "LOCALE:Languages/dansk.language" (noreq)) (not (= #t_dansk "")))
  1651.     (set #default (bitor #default #dansk))
  1652. )
  1653. (if (and (exists "LOCALE:Languages/deutsch.language" (noreq)) (not (= #t_deutsch "")))
  1654.     (set #default (bitor #default #deutsch))
  1655. )
  1656. (if (and (exists "LOCALE:Languages/español.language" (noreq)) (not (= #t_español "")))
  1657.     (set #default (bitor #default #español))
  1658. )
  1659. (if (and (exists "LOCALE:Languages/français.language" (noreq)) (not (= #t_français "")))
  1660.     (set #default (bitor #default #français))
  1661. )
  1662. (if (and (exists "LOCALE:Languages/greek.language" (noreq)) (not (= #t_greek "")))
  1663.     (set #default (bitor #default #greek))
  1664. )
  1665. (if (and (exists "LOCALE:Languages/hrvatski.language" (noreq)) (not (= #t_hrvatski "")))
  1666.     (set #default (bitor #default #hrvatski))
  1667. )
  1668. (if (and (exists "LOCALE:Languages/íslenska.language" (noreq)) (not (= #t_íslenska "")))
  1669.     (set #default (bitor #default #íslenska))
  1670. )
  1671. (if (and (exists "LOCALE:Languages/italiano.language" (noreq)) (not (= #t_italiano "")))
  1672.     (set #default (bitor #default #italiano))
  1673. )
  1674. (if (and (exists "LOCALE:Languages/nederlands.language" (noreq)) (not (= #t_nederlands "")))
  1675.     (set #default (bitor #default #nederlands))
  1676. )
  1677. (if (and (exists "LOCALE:Languages/norsk.language" (noreq)) (not (= #t_norsk "")))
  1678.     (set #default (bitor #default #norsk))
  1679. )
  1680. (if (and (exists "LOCALE:Languages/polski.language" (noreq)) (not (= #t_polski "")))
  1681.     (set #default (bitor #default #polski))
  1682. )
  1683. (if (and (exists "LOCALE:Languages/português.language" (noreq)) (not (= #t_portugues "")))
  1684.     (set #default (bitor #default #portugues))
  1685. )
  1686. (if (and (exists "LOCALE:Languages/srpski.language" (noreq)) (not (= #t_srpski "")))
  1687.     (set #default (bitor #default #srpski))
  1688. )
  1689. (if (and (exists "LOCALE:Languages/suomi.language" (noreq)) (not (= #t_suomi "")))
  1690.     (set #default (bitor #default #suomi))
  1691. )
  1692. (if (and (exists "LOCALE:Languages/svenska.language" (noreq)) (not (= #t_svenska "")))
  1693.     (set #default (bitor #default #svenska))
  1694. )
  1695. (if (and (exists "LOCALE:Languages/ÃeÓtina.language" (noreq)) (not (= #t_ÃeÓtina "")))
  1696.     (set #default (bitor #default #ÃeÓtina))
  1697. )
  1698.  
  1699. (if (bitand #parts (bitor #system #prefs))
  1700.     (if (= @user-level 0)
  1701.     (
  1702.         (set #languages #default)
  1703.     )
  1704.     ( ; Average or Expert
  1705.         (set #languages (askoptions
  1706.             (prompt #t_languages)
  1707.             (help (cat #t_languageshelp @askoptions-help))
  1708.             (choices #t_dansk #t_deutsch  #t_español #t_français
  1709.                      #t_greek #t_hrvatski #t_íslenska #t_italiano #t_nederlands
  1710.                      #t_norsk #t_polski #t_português #t_srpski
  1711.                      #t_suomi #t_svenska #t_ÃeÓtina)
  1712.             (default #default)
  1713.         ))
  1714.     ))
  1715. )
  1716.  
  1717.  
  1718. ;**
  1719. ;** Find out which drivers should be installed (if any)
  1720. ;**
  1721.  
  1722. (set    #default #filesave)
  1723. (set    #drivers 0)
  1724.  
  1725. (if (exists "Libs:delfina.library" (noreq))
  1726.     (set #default (bitor #default #delfina))
  1727. )
  1728. (if (<> (database "graphics-mem") 0)            ; Test for not Draco...
  1729.     (set #default (bitor #default #paula))
  1730. )
  1731. (if (exists "Libs:maestix.library" (noreq))
  1732.     (set #default (bitor #default #maestropro))
  1733. )
  1734. (if (exists "Libs:prelude.library" (noreq))
  1735.     (set #default (bitor #default #prelude))
  1736. )
  1737.  
  1738. (if (exists "Libs:toccata.library" (noreq))
  1739.     ; Don't set if emulation library found!
  1740.     (if (< (bitand (getversion "Libs:toccata.library") 65535) 1000)
  1741.         (set #default (bitor #default #toccata))
  1742.     )
  1743. )
  1744. (if (exists "Devs:dad_audio.device" (noreq)) 
  1745.     (set #default (bitor #default #wavetools))
  1746. )
  1747.  
  1748. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1749.  
  1750. (if (bitand #parts #system)
  1751.     (if (= @user-level 0)
  1752.     (
  1753.         (set #drivers #default)
  1754.     )
  1755.     ( ; Average or Expert
  1756.         (set #drivers (askoptions
  1757.             (prompt #t_drivers)
  1758.             (help (cat #t_drivershelp @askoptions-help))
  1759.             (choices "Delfina" "Filesave" "Maestro Pro" "Melody MPEG" "Paula" "Prelude" "Toccata" "Wavetools")
  1760.             (default #default)
  1761.         ))
  1762.     ))
  1763. )
  1764.  
  1765. ;**
  1766. ;**  Install 020-versions of the binaries?
  1767. ;**
  1768.  
  1769. (set #ver68k    "")
  1770. (set #default    1)
  1771.  
  1772. (if (patmatch "68000|68010" (database "cpu"))
  1773. (
  1774.     (set #default 0)
  1775. ))
  1776.  
  1777. (if (patmatch "68060" (database "cpu"))
  1778. (
  1779.     (set #default 2)
  1780. ))
  1781.  
  1782. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1783.  
  1784. (if (and (bitand #parts #system) (>= @user-level 1))
  1785.     (set #default (askchoice
  1786.         (prompt #t_CPUver)
  1787.         (help (cat #t_CPUverhelp @askbool-help))
  1788.         (choices "68000" "68020-68040" "68060")
  1789.         (default #default)))
  1790. )
  1791.  
  1792. (if (= #default 0)
  1793. (
  1794.     (set #ver68k ".000")
  1795. ))
  1796. (if (= #default 2)
  1797. (
  1798.     (set #ver68k ".060")
  1799. ))
  1800.  
  1801.  
  1802. ;**
  1803. ;** Find out which developer files should be installed
  1804. ;**
  1805.  
  1806. (set    #default (bitor #devdocs #source #asm #cgen #fd))
  1807. (set    #devfiles 0)
  1808.  
  1809. (if (exists "ADE:" (noreq))
  1810.     (set #default (bitor #default #ade))
  1811. )
  1812.  
  1813. (if (exists "SC:" (noreq))
  1814.     (set #default (bitor #default #sas))
  1815. )
  1816.  
  1817. (if (exists "STORMC:" (noreq))
  1818.     (set #default (bitor #default #storm))
  1819. )
  1820.  
  1821. (if (exists "EMODULES:" (noreq))
  1822.     (set #default (bitor #default #e))
  1823. )
  1824.  
  1825. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1826.  
  1827. (if (bitand #parts (bitor #a-developer #d-developer))
  1828. (
  1829.     (if (= @user-level 0)
  1830.     (
  1831.         (set #devfiles #default)
  1832.     )
  1833.     ( ; Average or Expert
  1834.         (set #devfiles (askoptions
  1835.             (prompt #t_devfiles)
  1836.             (help (cat #t_devfileshelp @askoptions-help))
  1837.             (choices #t_devdocs #t_source #t_asm #t_cgen #t_e #t_fd #t_ade #t_sas #t_storm )
  1838.             (default #default)
  1839.         ))
  1840.     ))
  1841. ))
  1842.  
  1843. ;**
  1844. ;** Find out where the files should be installed
  1845. ;**
  1846.  
  1847. (set #devspath        "Devs:")
  1848. (set #cpath        "C:")
  1849. (set #prefspath        "SYS:Prefs/")
  1850. (set #lpath        "L:")
  1851. (set #localepath    "Locale:")
  1852.  
  1853. (set #incpath        @default-dest)
  1854. (set #adeincpath    "ADE:include/")
  1855. (set #sasincpath    "Include:")
  1856. (set #stormincpath    "StormC:Include")
  1857. (set #fdpath        "FD:")
  1858. (set #emodpath        "EMODULES:")
  1859.  
  1860. (if (exists #devspath (noreq)) (set #devspath (expandpath #devspath)))
  1861. (if (exists #cpath (noreq)) (set #cpath (expandpath #cpath)))
  1862. (if (exists #prefspath (noreq)) (set #prefspath (expandpath #prefspath)))
  1863. (if (exists #lpath (noreq)) (set #lpath (expandpath #lpath)))
  1864. (if (exists #localepath (noreq)) (set #localepath (expandpath #localepath)))
  1865.  
  1866. (if (not (exists "Help:" (noreq)))
  1867. (
  1868.     (if (bitand #parts #prefs)
  1869.         (set #userdocpath #prefspath)
  1870.         (set #userdocpath @default-dest)
  1871.     )
  1872. )
  1873. (
  1874.     (if (>= #osversion 38)
  1875.     (
  1876.         (set #userdocpath "Help:")
  1877.     ))
  1878. ))
  1879.  
  1880. (if (bitand #devfiles #ade)
  1881. (
  1882.     (set #incpath "ADE:os-include/")
  1883. ))
  1884. (if (exists "Include:" (noreq))
  1885. (
  1886.     (set #incpath "Include:")
  1887. ))
  1888.  
  1889. (if (= @user-level 0)
  1890. (
  1891.     (if (and (bitand #parts #system) (not (exists #devspath (noreq))))
  1892.     (
  1893.         (abort #t_nodevs)
  1894.     ))
  1895.     (if (and (bitand #parts #system) (not (exists #cpath (noreq))))
  1896.     (
  1897.         (abort #t_noc)
  1898.     ))
  1899.     (if (and (bitand #parts #prefs) (not (exists #prefspath (noreq))))
  1900.         (
  1901.         (abort #t_noprefs)
  1902.     ))
  1903.     (if (and (bitand #parts #audio) (not (exists #lpath (noreq))))
  1904.     (
  1905.         (abort #t_nol)
  1906.     ))
  1907.  
  1908.     (set #srcpath (tackon @default-dest "AHI/"))
  1909.     (if (exists #srcpath)
  1910.     (
  1911.         (delete #srcpath
  1912.             (all)
  1913.             (optional "force")
  1914.         )
  1915.     ))
  1916.  
  1917.     (set #devdocspath (tackon #srcpath "docs/"))
  1918.     (if (=     #userdocpath @default-dest)
  1919.     (
  1920.         (set #userdocpath #devdocspath)
  1921.     ))
  1922.     (if (= #incpath @default-dest)
  1923.     (
  1924.         (set #incpath (tackon #srcpath "include/"))
  1925.     ))
  1926.     (set #aincpath #incpath)
  1927.     (set #cincpath #incpath)
  1928.     (if (not (exists #sasincpath (noreq)))
  1929.     (
  1930.         (set #sasincpath #cincpath)
  1931.     ))
  1932.     (if (not (exists #stormincpath (noreq)))
  1933.     (
  1934.         (set #stormincpath #cincpath)
  1935.     ))
  1936.     (if (not (exists #fdpath (noreq)))
  1937.     (
  1938.         (set #fdpath (tackon #incpath "fd/"))
  1939.     ))
  1940.     (if (not (exists #emodpath (noreq)))
  1941.     (
  1942.         (set #emodpath #cincpath)
  1943.     ))
  1944.  
  1945.     (makedir #srcpath (infos))
  1946.     (set @default-dest #srcpath)
  1947.  
  1948. ; Match the number of completes in the 'else' section...
  1949.     (complete (/ #complete 10)) (set #complete (+ #complete (* 15 #completeadd)))
  1950.  
  1951. )
  1952. ( ; Average or Expert
  1953.  
  1954.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1955.  
  1956.     (if (and (bitand #parts #system)
  1957.              (or (not (exists #devspath (noreq))) (= @user-level 2) ))
  1958.     (
  1959.         (set #devspath (askdir 
  1960.             (prompt #t_devspath)
  1961.             (help (cat #t_devspathhelp @askdir-help))
  1962.             (default #devspath)
  1963.         ))
  1964.     ))
  1965.  
  1966.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1967.  
  1968.     (if (and (bitand #parts #system)
  1969.              (or (not (exists #cpath (noreq))) (= @user-level 2) ))
  1970.     (
  1971.         (set #cpath (askdir 
  1972.             (prompt #t_cpath)
  1973.             (help (cat #t_cpathhelp @askdir-help))
  1974.             (default #cpath)
  1975.         ))
  1976.     ))
  1977.  
  1978.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1979.  
  1980.     (if (and (<> #languages 0)
  1981.              (or (not (exists #localepath (noreq))) (= @user-level 2) ))
  1982.     (
  1983.         (set #localepath (askdir 
  1984.             (prompt #t_localepath)
  1985.             (help (cat #t_localepathhelp @askdir-help))
  1986.             (default #localepath)
  1987.         ))
  1988.     ))
  1989.  
  1990.  
  1991.  
  1992.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  1993.  
  1994.     (if (and (bitand #parts #prefs)
  1995.              (or (not (exists #prefspath (noreq))) (= @user-level 2) ))
  1996.     (
  1997.         (set #prefspath (askdir 
  1998.             (prompt #t_prefspath)
  1999.             (help (cat #t_prefspathhelp @askdir-help))
  2000.             (default #prefspath)
  2001.         ))
  2002.     ))
  2003.  
  2004.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2005.  
  2006.     (if (and (bitand #parts #audio)
  2007.              (or (not (exists #lpath (noreq))) (= @user-level 2) ))
  2008.     (
  2009.         (set #lpath (askdir 
  2010.             (prompt #t_lpath)
  2011.             (help (cat #t_lpathhelp @askdir-help))
  2012.             (default #lpath)
  2013.         ))
  2014.     ))
  2015.  
  2016.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2017.  
  2018.     (if (and (bitand #parts #audio)
  2019.              (or (not (exists #dosdevpath (noreq))) (= @user-level 2) ))
  2020.     (
  2021.         (set #dosdevpath (askdir 
  2022.             (prompt #t_dosdevpath)
  2023.             (help (cat #t_dosdevpathhelp @askdir-help))
  2024.             (default #dosdevpath)
  2025.         ))
  2026.     ))
  2027.  
  2028.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2029.  
  2030.     (if (and (bitand #parts #userdoc)
  2031.              (or (= #userdocpath @default-dest) (= @user-level 2) ))
  2032.     (
  2033.         (set #userdocpath (askdir 
  2034.             (prompt #t_userdocpath)
  2035.             (help (cat #t_userdocpathhelp @askdir-help))
  2036.             (default #userdocpath)
  2037.         ))
  2038.     ))
  2039.  
  2040.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2041.  
  2042.     (if (bitand #devfiles #source)
  2043.     (
  2044.         (set #srcpath (askdir 
  2045.             (prompt #t_srcpath)
  2046.             (help (cat #t_srcpathhelp @askdir-help))
  2047.             (default @default-dest)
  2048.         ))
  2049.         (set #srcpath (tackon #srcpath "AHI/"))
  2050.         (if (exists #srcpath)
  2051.         (
  2052.             (delete #srcpath
  2053.                 (all)
  2054.                 (confirm average)
  2055.                 (optional "force")
  2056.                 (prompt #t_oldsrc)
  2057.                 (help #t_nohelp)
  2058.             )
  2059.         ))
  2060.         (makedir #srcpath (infos))
  2061.         (set @default-dest #srcpath)
  2062.     ))
  2063.  
  2064.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2065.  
  2066.     (if (bitand #devfiles #devdocs)
  2067.     (
  2068.         (set #devdocspath (askdir 
  2069.             (prompt #t_devdocspath)
  2070.             (help (cat #t_devdocspathhelp @askdir-help))
  2071.             (default (tackon @default-dest "docs/"))
  2072.             (newpath)
  2073.         ))
  2074.     ))
  2075.  
  2076.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2077.  
  2078.     (if (bitand #devfiles #asm)
  2079.     (
  2080.         (set #aincpath (askdir 
  2081.             (prompt #t_aincpath)
  2082.             (help (cat #t_aincpathhelp @askdir-help))
  2083.             (default #incpath)
  2084.         ))
  2085.  
  2086.     ))
  2087.  
  2088.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2089.  
  2090.     (if (bitand #devfiles #fd)
  2091.     (
  2092.         (if (not (exists #fdpath (noreq)))
  2093.         (
  2094.             (set #fdpath (tackon #incpath "fd/"))
  2095.         ))
  2096.         (set #fdpath (askdir 
  2097.             (prompt #t_fdpath)
  2098.             (help (cat #t_fdpathhelp @askdir-help))
  2099.             (default #fdpath)
  2100.         ))
  2101.     ))
  2102.  
  2103.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2104.  
  2105.     (if (bitand #devfiles #cgen)
  2106.     (
  2107.         (set #cincpath (askdir 
  2108.             (prompt #t_cincpath)
  2109.             (help (cat #t_cincpathhelp @askdir-help))
  2110.             (default #incpath)
  2111.         ))
  2112.     ))
  2113.  
  2114.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2115.  
  2116.     (if (bitand #devfiles #e)
  2117.     (
  2118.         (set #emodpath (askdir 
  2119.             (prompt #t_emodpath)
  2120.             (help (cat #t_emodpathhelp @askdir-help))
  2121.             (default #emodpath)
  2122.         ))
  2123.     ))
  2124.  
  2125.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2126.  
  2127.     (if (bitand #devfiles #ade)
  2128.     (
  2129.         (set #adeincpath (askdir 
  2130.             (prompt #t_adeincpath)
  2131.             (help (cat #t_adeincpathhelp @askdir-help))
  2132.             (default #adeincpath)
  2133.         ))
  2134.     ))
  2135.  
  2136.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2137.  
  2138.     (if (bitand #devfiles #sas)
  2139.     (
  2140.         (set #sasincpath (askdir 
  2141.             (prompt #t_sasincpath)
  2142.             (help (cat #t_sasincpathhelp @askdir-help))
  2143.             (default #sasincpath)
  2144.         ))
  2145.     ))
  2146.  
  2147.     (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2148.  
  2149.     (if (bitand #devfiles #storm)
  2150.     (
  2151.         (set #stormincpath (askdir 
  2152.             (prompt #t_stormincpath)
  2153.             (help (cat #t_stormincpathhelp @askdir-help))
  2154.             (default #stormincpath)
  2155.         ))
  2156.     ))
  2157. ))
  2158.  
  2159.  
  2160. ;******************************************************************************
  2161. ;**** Install *****************************************************************
  2162. ;******************************************************************************
  2163.  
  2164.  
  2165. ;**
  2166. ;** Install the prefs program
  2167. ;**
  2168.  
  2169. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2170. (if (bitand #parts #prefs)
  2171. (
  2172.  
  2173. ; No version checking, so user can change gui version
  2174.  
  2175.     (copyfiles
  2176.         (help (cat #t_prefspathhelp @copylib-help))
  2177.         (prompt #t_installing "AHI")
  2178.         (source (tackon "User/Prefs" #prefssrc))
  2179.         (dest #prefspath)
  2180.         (newname "AHI")
  2181.         (confirm)
  2182.     )
  2183.     (protect (tackon #prefspath "AHI") "+e")
  2184.  
  2185.  
  2186.     (if (= #icon #icon_std)
  2187.         (set #iconsrc "AHI.info")
  2188.     )
  2189.     (if (= #icon #icon_mwb)
  2190.         (set #iconsrc "AHI.MWB.info")
  2191.     )
  2192.  
  2193.     (copyfiles
  2194.         (help (cat #t_prefspathhelp @copylib-help))
  2195.         (prompt #t_installing "AHI")
  2196.         (source (tackon "User/Prefs" #iconsrc))
  2197.         (dest #prefspath)
  2198.         (newname "AHI.info")
  2199.         (confirm)
  2200.         (noposition)
  2201.     )
  2202.  
  2203.     (set @default-dest #prefspath)
  2204. ))
  2205.  
  2206. ;**
  2207. ;** Install the audio handler
  2208. ;**
  2209.  
  2210. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2211. (if (bitand #parts #audio)
  2212. (
  2213.     (copylib
  2214.         (help (cat #t_lpathhelp @copylib-help))
  2215.         (prompt #t_installing "AHI-Handler")
  2216.         (source "User/L/AHI-Handler")
  2217.         (dest #lpath)
  2218.         (confirm)
  2219.     )
  2220.     (protect (tackon #lpath "AHI-Handler") "+e")
  2221.  
  2222.     (copylib
  2223.         (help (cat #t_dosdevpathhelp @copylib-help))
  2224.         (prompt #t_installing "AUDIO")
  2225.         (source "User/Devs/DOSDrivers/AUDIO")
  2226.         (dest #dosdevpath)
  2227.         (confirm)
  2228.     )
  2229.  
  2230.     (if (= #icon #icon_std)
  2231.         (set #iconsrc "AUDIO.info")
  2232.     )
  2233.     (if (= #icon #icon_mwb)
  2234.         (set #iconsrc "AUDIO.MWB.info")
  2235.     )
  2236.  
  2237.     (copyfiles
  2238.         (help (cat #t_dosdevpathhelp @copylib-help))
  2239.         (prompt #t_installing "AUDIO")
  2240.         (source (tackon "User/Devs/DOSDrivers" #iconsrc))
  2241.         (dest #dosdevpath)
  2242.         (newname "AUDIO.info")
  2243.         (confirm)
  2244.         (noposition)
  2245.     )
  2246.  
  2247.     (set @default-dest #lpath)
  2248. ))
  2249.  
  2250. ;**
  2251. ;** Install the user documentation
  2252. ;**
  2253.  
  2254. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2255. (if (bitand #parts #userdoc)
  2256. (
  2257.     (copyfiles
  2258.         (help (cat #t_userdocpathhelp @copylib-help))
  2259.         (prompt #t_installing "ahi.guide")
  2260.         (source "User/Help/ahi.guide")
  2261.         (dest #userdocpath)
  2262.         (infos)
  2263.         (noposition)
  2264.     )
  2265.  
  2266.     (set @default-dest #userdocpath)
  2267. ))
  2268.  
  2269.  
  2270. ;**
  2271. ;** Install ahi.device, AddAudioModes and drivers
  2272. ;**
  2273.  
  2274. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2275. (if (bitand #parts #system)
  2276. (
  2277.  
  2278. ;** ahi.device
  2279.     (copylib
  2280.         (help (cat #t_ahidevhelp @copylib-help))
  2281.         (prompt (cat #t_installing "ahi.device" #ver68k))
  2282.         (source (cat "User/Devs/ahi.device" #ver68k))
  2283.         (dest #devspath)
  2284.         (newname "ahi.device")
  2285.         (confirm)
  2286.     )
  2287.  
  2288. ;** AddAudioModes
  2289.     (copylib
  2290.         (help (cat #t_cpathhelp @copylib-help))
  2291.         (prompt #t_installing "AddAudioModes")
  2292.         (source "User/C/AddAudioModes")
  2293.         (dest #cpath)
  2294.         (confirm)
  2295.     )
  2296.     (protect (tackon #cpath "AddAudioModes") "+e")
  2297.  
  2298. ;** Drivers
  2299.  
  2300.     (if (bitand #drivers #delfina)
  2301.         (P_INSTDRIVER "delfina.audio" "DELFINA")
  2302.     )
  2303.     (if (bitand #drivers #filesave)
  2304.         (P_INSTDRIVER "filesave.audio" "FILESAVE")
  2305.     )
  2306.     (if (bitand #drivers #maestropro)
  2307.         (P_INSTDRIVER "maestropro.audio" "MAESTROPRO")
  2308.     )
  2309.     (if (bitand #drivers #melody)
  2310.         (P_INSTDRIVER "melody.audio" "MELODY")
  2311.     )
  2312.     (if (bitand #drivers #paula)
  2313.         (P_INSTDRIVER "paula.audio" "PAULA")
  2314.     )
  2315.     (if (bitand #drivers #prelude)
  2316.         (P_INSTDRIVER "prelude.audio" "PRELUDE")
  2317.     )
  2318.     (if (bitand #drivers #toccata)
  2319.         (P_INSTDRIVER "toccata.audio" "TOCCATA")
  2320.     )
  2321.     (if (bitand #drivers #wavetools)
  2322.         (P_INSTDRIVER "wavetools.audio" "WAVETOOLS")
  2323.     )
  2324.  
  2325.     (run (cat (tackon #cpath "AddAudioModes") " REMOVE")
  2326.         (prompt #t_runaddmodes)
  2327.         (help #t_nohelp)
  2328.         (confirm)
  2329.     )
  2330.  
  2331.     (set @default-dest #devspath)
  2332. ))
  2333.  
  2334.  
  2335. ;**
  2336. ;** Install the catalogs
  2337. ;**
  2338.  
  2339. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2340. (if (bitand #parts (bitor #system #prefs))
  2341. (
  2342. ;** Catalogs
  2343.     (if (bitand #languages #dansk)
  2344.         (P_INSTCATALOG #t_dansk)
  2345.     )
  2346.     (if (bitand #languages #deutsch)
  2347.         (P_INSTCATALOG #t_deutsch)
  2348.     )
  2349.     (if (bitand #languages #español)
  2350.         (P_INSTCATALOG #t_español)
  2351.     )
  2352.     (if (bitand #languages #français)
  2353.         (P_INSTCATALOG #t_français)
  2354.     )
  2355.     (if (bitand #languages #greek)
  2356.         (P_INSTCATALOG #t_greek)
  2357.     )
  2358.     (if (bitand #languages #hrvatski)
  2359.         (P_INSTCATALOG #t_hrvatski)
  2360.     )
  2361.     (if (bitand #languages #íslenska)
  2362.         (P_INSTCATALOG #t_íslenska)
  2363.     )
  2364.     (if (bitand #languages #italiano)
  2365.         (P_INSTCATALOG #t_italiano)
  2366.     )
  2367.     (if (bitand #languages #nederlands)
  2368.         (P_INSTCATALOG #t_nederlands)
  2369.     )
  2370.     (if (bitand #languages #norsk)
  2371.         (P_INSTCATALOG #t_norsk)
  2372.     )
  2373.     (if (bitand #languages #polski)
  2374.         (P_INSTCATALOG #t_polski)
  2375.     )
  2376.     (if (bitand #languages #português)
  2377.         (P_INSTCATALOG #t_português)
  2378.     )
  2379.     (if (bitand #languages #srpski)
  2380.         (P_INSTCATALOG #t_srpski)
  2381.     )
  2382.     (if (bitand #languages #suomi)
  2383.         (P_INSTCATALOG #t_suomi)
  2384.     )
  2385.     (if (bitand #languages #svenska)
  2386.         (P_INSTCATALOG #t_svenska)
  2387.     )
  2388.     (if (bitand #languages #ÃeÓtina)
  2389.         (P_INSTCATALOG #t_ÃeÓtina)
  2390.     )
  2391. ))
  2392.  
  2393. ;**
  2394. ;** Install the autodocs
  2395. ;**
  2396.  
  2397. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2398. (if (bitand #devfiles #devdocs)
  2399. (
  2400.     (if (bitand #parts #a-developer)
  2401.         (set #pattern "~(#?sub#?)"))
  2402.  
  2403.     (if (bitand #parts #d-developer)
  2404.         (set #pattern "(#?sub#?)"))
  2405.  
  2406.     (if (and (bitand #parts #a-developer) (bitand #parts #d-developer))
  2407.         (set #pattern "#?"))
  2408.  
  2409.     (makedir #devdocspath)
  2410.     (copyfiles
  2411.         (help @copylib-help)
  2412.         (prompt #t_installingdocs )
  2413.         (source "Developer/docs/")
  2414.         (dest #devdocspath)
  2415.         (pattern #pattern)
  2416.         (confirm average)
  2417.         (infos)
  2418.         (noposition)
  2419.     )
  2420.  
  2421.     (set @default-dest #devdocspath)
  2422. ))
  2423.  
  2424. ;**
  2425. ;** Install the include files
  2426. ;**
  2427.  
  2428. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2429. (if (bitand #devfiles #fd)
  2430. (
  2431.     (copyfiles
  2432.         (help @copylib-help)
  2433.         (prompt #t_installingincs)
  2434.         (source "Developer/Include/FD")
  2435.         (dest #fdpath)
  2436.         (all)
  2437.     )
  2438.  
  2439.     (set @default-dest #fdpath)
  2440. ))
  2441.  
  2442. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2443. (if (bitand #devfiles #asm)
  2444. (
  2445.     (copyfiles
  2446.         (help @copylib-help)
  2447.         (prompt #t_installingincs)
  2448.         (source "Developer/include/Asm")
  2449.         (dest #aincpath)
  2450.         (all)
  2451.     )
  2452.     (set @default-dest #aincpath)
  2453. ))
  2454.  
  2455. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2456. (if (bitand #devfiles #cgen)
  2457. (
  2458.     (copyfiles
  2459.         (help @copylib-help)
  2460.         (prompt #t_installingincs)
  2461.         (source "Developer/Include/C")
  2462.         (dest #cincpath)
  2463.         (all)
  2464.     )
  2465.  
  2466.     (set @default-dest #cincpath)
  2467. ))
  2468.  
  2469. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2470. (if (bitand #devfiles #e)
  2471. (
  2472.     (copyfiles
  2473.         (help @copylib-help)
  2474.         (prompt #t_installingincs)
  2475.         (source "Developer/Include/E")
  2476.         (dest #emodpath)
  2477.         (all)
  2478.     )
  2479.  
  2480.     (set @default-dest #emodpath)
  2481. ))
  2482.  
  2483. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2484. (if (bitand #devfiles #ade)
  2485. (
  2486.     (copyfiles
  2487.         (help @copylib-help)
  2488.         (prompt #t_installingincs)
  2489.         (source "Developer/Include/ADE")
  2490.         (dest #adeincpath)
  2491.         (all)
  2492.     )
  2493.  
  2494.     (set @default-dest #adeincpath)
  2495. ))
  2496.  
  2497. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2498. (if (bitand #devfiles #sas)
  2499. (
  2500.     (copyfiles
  2501.         (help @copylib-help)
  2502.         (prompt #t_installingincs)
  2503.         (source "Developer/Include/SAS")
  2504.         (dest #sasincpath)
  2505.         (all)
  2506.     )
  2507.  
  2508.     (set @default-dest #sasincpath)
  2509. ))
  2510.  
  2511. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2512. (if (bitand #devfiles #storm)
  2513. (
  2514.     (copyfiles
  2515.         (help @copylib-help)
  2516.         (prompt #t_installingincs)
  2517.         (source "Developer/Include/Storm")
  2518.         (dest #stormincpath)
  2519.         (all)
  2520.     )
  2521.  
  2522.     (set @default-dest #stormincpath)
  2523. ))
  2524.  
  2525. ;** 
  2526. ;** Install the examples
  2527. ;**
  2528.  
  2529. (complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
  2530. (if (bitand #devfiles #source)
  2531. (
  2532.     (if (bitand #parts #a-developer)
  2533.     (
  2534.         (makedir (tackon #srcpath "examples/"))
  2535.         (copyfiles
  2536.             (help @copylib-help)
  2537.             (prompt #t_installingsrc)
  2538.             (source "Developer/examples")
  2539.             (dest (tackon #srcpath "examples/"))
  2540.             (all)
  2541.         )
  2542.     ))
  2543.     (if (bitand #parts #d-developer)
  2544.     (
  2545.         (makedir (tackon #srcpath "drivers/"))
  2546.         (copyfiles
  2547.             (help @copylib-help)
  2548.             (prompt #t_installingsrc)
  2549.             (source "Developer/drivers")
  2550.             (dest (tackon #srcpath "drivers/"))
  2551.             (all)
  2552.         )
  2553.         (makedir (tackon #srcpath "support/"))
  2554.         (copyfiles
  2555.             (help @copylib-help)
  2556.             (prompt #t_installingsrc)
  2557.             (source "Developer/support")
  2558.             (dest (tackon #srcpath "support/"))
  2559.             (all)
  2560.         )
  2561.     ))
  2562.     (if (bitand #parts (bitor #a-developer #d-developer))
  2563.     (
  2564.         (copyfiles
  2565.             (help @copylib-help)
  2566.             (prompt #t_installingsrc)
  2567.             (source "")
  2568.             (dest #srcpath)
  2569.             (pattern "(COPYRIGHT|HISTORY|VERSION|ahi.readme)#?")
  2570.         )
  2571.     ))
  2572.  
  2573.     (set @default-dest #srcpath)
  2574. ))
  2575.  
  2576.  
  2577.  
  2578.  
  2579. (complete 100)
  2580. (exit)
  2581.